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I. INTRODUCTION 


Midwest Research Institute, under a previous contract DIAS 8- 11 012, 
has developed a theory of accurately predicting unsteady indicial aero- 
dynamic forces on a body of revolution. By indicial, we mean the forces re- 
sulting when the vehicle encounters a side gust in the form of a step func- 
tion. Since this theory is linear, it can be used with an integral or con- 
volution approach to calculate aerodynamic forces associated with arbitrary 
side winds. 

The object of the current contract is to apply the integral approach 
by developing the necessary computer programs and then using the programs to 
study several selected problems. This manual contains the information and 
instructions for users of these computer programs. 

The programs required to compute the indicial aerodynamic forces 
have been previously documented. l/ However, because some improvements and 

modifications have been made since that report was issued, and for complete- 
ness, the documentation of these programs is repeated in this manual, to- 
gether with the documentation of the completely new programs . It is assumed 
that the user is familiar with the basic theory and notation^/ and, to a 
lesser degree, the "equivalent body concept"^/ and the Buhamel integral ap- 
proach.^/ 


The principal type of side wind considered in the study was 
sinusoidal in profile, hence, the programs were designed to handle this wind 
shape readily to generate frequency response data. However, it is also pos- 
sible to obtain responses to -arbitrary winds by utilizing an alternate set 
of routines and specifying the wind as a function of altitude. 

There are three different programs, or deck setups described in 
this manual. Program I (main program COMEAR) contains all of the routines 
necessary to calculate indicial responses and then to use these to obtain 
frequency response data. This program is recommended for use in studying 
relatively simple body shapes which can be described by a reasonably small 
(say, less than 40) number of aerodynamic sources. It is recommended also 
for one-time calculations wherein the user is fairly certain he will not 
want to obtain additional frequency response data for the same geometry (and 
same Mach number) at a future date. 
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Since the calculation of the indieial responses is fairly time- 
consuming (indeed, often the major portion of a complete computer run of 
Program l) there are many situations in which the user might prefer to com- 
pute the indieial responses in a separate job, store these on magnetic tape, 
and subsequently use the tape as input to a wind-response program. Program 
II (main program TAERI&5) may he used to calculate and store indieial re- 
sponses on magnetic tape. Program III (main program RESINP) uses the tape(s) 
to compute frequency response data or optionally, with additional input data, 
responses to specified arbitrary winds. If responses to arbitrary winds are 
desired the sequence Program II, Program III must be used; Program I does not 
contain this option. 

The programs are written exclusively in FORTRAN IV and utilize a 
great deal of double precision arithmetic. They have been compiled and 
executed on an IBM 7094-11 and, with minor changes, should be acceptable to 
most other large-scale computers. 

This manual presents, first, a discussion of the overall structure 
of the programs. Next a complete presentation of input data is given, with 
examples. A discussion of the output to he expected, its interpretation, 
units, etc., is given next, followed by a brief discussion of each of the 
subroutines. Then deck setup, operating instructions, timing, and the like 
are presented. Appendices contain selected flow diagrams and complete 
FORTRAN listings of all of the routines. 


II. PROGRAM ORGANIZATION 


Program I consists of a main control routine, COMTAR, and four 
major subroutines: MAIN1, MAHJ2, MAIN3, and RESINP. (The deck names for 

these four are MANL, MM2, MAN3, and COMEES, respectively.) Control passes 
back and forth between these subroutines, at the user’s command, via COMTAR. 
It Is necessary that MAIN1 be called upon before either MAIfl2 or MAIN3 is 
used. Furthermore, MAIN2 and/or MAIN3 must be called upon before RESINP is 
used. 


Subroutine MAIN1 does most of the basic data input functions. In 
addition, it computes basic coefficients which are required by the other 
routines. The computational phase of MAINl can he bypassed when geometrical 
and velocity data are Identical to those of a previous run. The punched card 
output of the previous MAINl run is used as input to MAINl- 

MAIN2 is used for computing local indieial normal force coefficients 
and related local quantities. MAIN3, on the other hand, is used for com- 
puting total indieial force coefficients, center of pressure location, and 
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other integrated effects. Each of these routines may store its results on 
"scratch" or working tapes as well as providing printed output. Separate 
tapes are used, one for MA.IN2 and one for MAIR3. 

Subroutine R ESTTjP utilizes the results on scratch tapes, prepared 
by MA.IN2 and/or MA.IM3 , to compute aerodynamic forces associated with sinu- 
soidal winds — that is, it computes frequency response data. 

Program I may be used for computing only indicial responses, and 
the working tapes may be saved for subsequent use. Alternately, program II 
may be used, resulting in moderate deck-handling simplifications. It con- 
sists of a main routine, TARRES, and the three major subroutines MAHJl, 
MAUJ2, and MA.IH3 (identical to those used with program l). Data preparation 
is identical for the two programs, except that with program II the packet 
of data used by RESHTP is not included. 

Program III is a separate program which reads indicial data from 
magnetic tapes and computes aerodynamic responses to sinusoidal winds or to 
arbitrary, specified winds . Its main routine is RPBI33P, not to be confused 
with the subroutine of the same name but with the deck name COMRES. The 
deck, RESIKP, is a greatly expanded version of the deck, COMRPS, and is a 
main routine as opposed to a subroutine . 

In addition to the seven major routines and subroutines mentioned 
above, there are sixteen other supporting routines. Table I shows the 
routines required for each of the three programs. All of these routines 
are listed in Appendix II, and additional documentation is given in other 
sections of this report. 

All dimensional quantities referred to in this manual are' in the 
metric system (K-M-S). The user may, however, use other units as long as 
he is consistent. (For example, feet and miles cannot be used simultane- 
ously.) The only exception to this is in the use of the wind data in Pro- 
gram III, where the program explicitly utilizes the metric system of units 
in making altitude- flight time transformations. This would have to be 
modified for use with other units. 
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TABLE I 


SUBROUTINES REQUIRED FOR AERODYNAMICS COMPUTER PROGRAMS 


Program I 

Program II 

Program III 

program Fame 

Deck Fame 

Program Fame 

Deck Fame 

Program Fame 

Deck Fame 

(Main) 

COMTAR 

(Main) 

TAPRES 

(Main) 

RESIHP 

MAIF1 

MAEL 

MAIF1 

MAF1 

LFCFT 

LFCFT 

MAIN2 

MAES 

MAIF2 

MAF2 

FIFTAP 

FIFTAP 

MAIF3 

MAF3 

MAIF3 

MAF3 

COFVOL 

COFVOL 

BIFTAP 

BIFTAP 

BIFTAP 

BIFTAP 

QUATAF 

QUATAF 

■ IFTGRL 

IFTGEL 

IFTGRL 

INTGRL 

SHEARS 

SHEARS 

UTAFVT 

UTAFVT 

UTAFVT 

UTAFVT 

DWVDI 

DWVDT 

UAFDV 

UAFDV 

UAFDV 

UAFDV 



POINTS 

POINTS 

POINTS 

POIFTS 



LFCFT 

LFCFT 

LFCFT 

LFCFT 



COMELL 

COMELL 

COMELL 

COMELL 



IFCELL 

IFCELL 

IFCELL 

IFCELL 



ARCOSH 

ARCOSH 

ARCOSH 

• ARCOSH 



ERROR 

ERROR 

ERROR 

ERROR 



RES IFF 

COMRES 





FIFTAP 

FIFTAP 





DTIH1FT 

DUHIFT 





QTIATAF 

QUATAU 






III. INPUT DATA 


A. Program I (CQMTAR) - 

The input data consist of one or more cases. Each case (that is, 
a specified geometry and Mach number) contains a pack of data read by MAUI, 
packs of data read by' MAIN2 and/or MAIF3, and a pack of data read by RESIFP. 

If MAIN2 (or MAIF3 or RES1FP) is not to be called, there should be no data 
for MAIF2 ( or MAIF3 or RESIFP) . Each pack of data is preceded by a program 
control card, which is read by the main program, COMTAR, and serves to call 
the required major subroutine.* 

Figure 1 illustrates a typical deck arrangement. The program decks 
are source, object, or a mixture of the two, as given in Table I. Following 
the $DATA card are two sets of data. The first set causes various aerodynamic 


* The supporting subroutines are called automatically as needed; the user 
need not concern hihiself with them during data preparation. 
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Figure 1 - Sample Decls Setup 
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coefficients to "be calculated (MAHTl) , some indicial local forces to tie cal- 
culated and stored on a working tape (MAIN2), some indicial total forces to 
be calculated and stored on a working tape (MAIB3), and some frequency re- 
sponse data to be calculated (RESIN?) . The second set causes various aero- 
dynamic coefficients to be calculated (presumably for a different geometry 
and/or Mach number), and indicial total forces to be calculated. Depending 
on the user's needs, the latter forces could be preserved by saving the mag- 
netic tape; or, alternatively, the user may be interested only in the print- 
out of these forces. To illustrate further the program capabilities, the 
data packs for MAIU2 and MAI3S3 for the first set (including the control cards) 
could be interchanged without affecting the end results or the computer time. 
This is because MAIN2 and MAM3 are independent routines which share only the 
data prepared by MATN1. Moreover, by dividing up the data pack associated 
with RESIMP and making slight data changes, the data for the first set could 
be arranged in the order: MAXKfl, MAIN2 , RESIMP , MAIN3, RESIMP. In this in- 

stance, identical results would be obtained at a slight loss in efficiency. 
This arrangement is not necessarily recommended, but is mentioned only to 
further illustrate data preparation procedures. 

The details of the data cards for Program I are given below. 

1. CCMTAR data : Only a single card is read by this routine. This 

"program control" card indicates which major subroutine is to be called next. 
(Upon return to COMTAR, another "program control" card is read.) Table II 
shows the card format. 


TABLE II 

DATA FOR PROGRAM CQMTAR 


Card Columns Format Quantity Remarks 

1 1-2 12 I Integer 1, 2, 3 or 4 to indicate which data 

pack follows (i.e., MAUD., MAIET2, MAIM3 
or RESIHP data pack) . 

2. MAIM1 data : Two different sequences are possible. Sequence A 

is the set which must be used initially. On subsequent runs using the same 
configuration and speed. Sequence B may be used to bypass the computational 
portion of MAIN1. The input Sequence B contains previously computed infor- 
mation, and, with the exception of cards 1 and 2, was punched out by a pre- 
vious run which used the Sequence A.* See Tables III and IV for the data 
descriptions. The user should refer to reference 2, Appendix V, for help in 
selecting the control point locations needed for cards 3...n. 

* A "Card 2" is also punched out by the previous run. But, due to number 

base conversions from base 10 to base 2 and back again, the punched card 
does not always agree with the card read. It should be destroyed and 
replaced by a correct Card 2, to avoid possible program difficulties. 
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TABLE III 


DATA FOR FROGEAM MAIN1, SEQUENCE A 


Columns 

Format 

Quantity 

Remarks 

1-72 

18A4 

HEADING 

Seventy-' two character page heading. 
May include date and other identi- 
fication data. 

1-13 

F13.8 

EM 

Mach number. 

14-26 

F13.8 

UPSTEM 

Upstream velocity, U {m/sec). 

27-39 

F13.8 

VZERO 

Downwash velocity, v Q (m/sec). 

40-42 

13 

NLAST 

Number of control points, excluding 
the origin. 

43-55 

F13.8 

EPS 

Small number used to offset Mach 
lines, e.g., 0.0000001. 

56-61 

F6.0 

DCOE 

Control code. If Sequence A data 
are being used, DCOE / 0.0. 

62-67 

F6.0 

WEIGHT 

Factor used with equivalent body con- 
cept. Normally = 1. Program sets 
WEIGHT = 1. if input is 0. or blank. 

68-80 

F13.8 

EBASE 

Radius at the base of the vehicle, 
used for nondimensionalizing. 

1-10 

F10.0 

X 

x- coordinate of first control point* 
on body surface (meters). 

11-20 

F10.0 

E 

r- coordinate of first control point* 
on body surface (meters). 

21-30 

F10.0 

EP 

Downstream slope. (Upstream slope 
for KTIEE = 1. ) 

31-35 

15 

KTYPE 

Type of solution used; i.e., 0- 
linear, 1-corner and 2-quadratic. 
(See UABDV. ) 



TABLE IH (Concluded) 


Card Columns Format Quantity 


Remarks 


3 


36-45 

46-55 

56-65 

66-70 


4-n 1-10 ' 

66-70 


Similar information as in columns 
1-35 of this card for second con- 
trol point on body surface. 


Additional cards in same format as 
card 3. The. ri^* 1 card need not con- 
tain two control points. 


* Other than the origin, which is automatically included by program. 
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TABLE IV 


DATA FOR EROGRAM MftIHl, SEQUENCE B 


Card 

1 

2 

Columns 

Format 

Quantity 

3 

1-5 

15 

I 


6-30 

E25.8 

x(i) 


31-55 

E25.8 

R(l) 


56-80 

E25.8 

RP(I) 

4 

1-5 

15 

KHPE(I) 


6-30 

E25.8 

Xl(l) 


31-55 

E25.8 

A(I) 

5,6, . . 

56-80 
• , 1-5 1 

E25.8 

C(I) 

m, m+1 

. 1 

56-80 

> 



Remarks 

See Table HI. 

See Table III. Note, DCOE must be 
zero or blank. 

Control point number. 

x- coordinate of i^ control point 
(meters ) . 

r- coordinate of i^ 1 control point 
(meters ) . 

Slope at i^h control point. 

Type of solution, i.e., O-linear, 
1-corner, 2-quadratic used at i" 1 
control point. 

Source location, (meters). 

Axial coefficient at i^* 1 control 
point . 

Cross flow coefficient at i^ 11 con- 
trol point. 

Additional cards in same format as 
cards 3 and 4, respectively. Two 
such cards are needed for each con- 
trol point. 


If, over a portion of the body, the configuration is not axially 
symmetric the "equivalent body concept"^/ may be utilized. For this portion 
of the body, the meaning of some of the input data is changed, as follows: 

R - artificial value of -1. , indicating that equivalent radius 
is not known and must be calculated; 
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KP - dimensionless slope of the local normal force coefficient 
downstream (upstream if KTYPE - l) of the control point. (This is 
dC M /d(x/D).) 

O' 

Moreover, if normal force discontinuities are desired, a "corner" must "be 
introduced. This is done by specifying a corner solution ( KTYPE = l) with 
the upstream radius, if known. (if unknown because an equivalent body is 
upstream, the upstream d£!^/d(x/l)) is given.) The corner solution is 
followed by a quadratic solution at the same location (as is normally done — 
see reference 2) but with an estimated body slope.* The estimate may be the 
result of trial and error. It is stated as the decimal fraction of the 
difference between the upstream slope and the slope of the Mach lines; i.e. 3 
if RP is given as 0., the upstream slope is used. If given as 1., the Mach 
angle is used. If the upstream slope is 0.1, the slope of the Mach lines 
is 0.5, and RP is stated as 0.75, a slope of 0.4 (0.1 + 0.75 (0. 5-0.1)) 
will be used. Following these would be a sequence of x-coordinate values 
with dCj^/d(x/D) being given. 


3. MAH2 data : This major subroutine computes indicial local 

aerodynamic forces. A single data card indicates whether a tape is to be 
written, and information regarding station location and/or time after gust 
penetration at which the forces are required. It is possible to index either 
the location or the time through a sequence of values, using a single data 
card. If, as often is the case, the user wishes to use unequal time inter- 
vals, one or more cards designated as card l 1 may be used with card 1. 
Automatic indexing on station location is not possible if a tape is to be 
written. This is because the program indexes x first, then t . Table V 
gives the data format for MAJH2 data. 

Examples of MAI]H2 data : 

(a) It is desired to compute local forces at a series of 
equally spaced locations at a specified time, without the need for writing 
on tape. A single card 1 will suffice, with ITAPE = 0, K0DE = -1 (assuming 
return to main program is desired next), EC0DEF = 0 3 RT = 1, and DT arbitrary. 


* Earlier versions of the program allowed dCjr /d(x/D) to be specified 

ahead of, and behind, the discontinuity. It was often found, however, 
that an axially symmetric body could not generate large enough dis- 
continuities to satisfy the input data, and maintain body slopes less 
than the Mach line slope — a necessity in potential theory. Thus, the 
user must accept a smaller discontinuity followed, perhaps, by a 
rapid change in dCm / d(x/T)' , i an armroximati on . 
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TABLE V 


BATA FOR PROGRAM MAIR2 

Card Columns Format Quantity Remarks 

1 1-5 15 ITAPE ITAPE = 0 denotes no tape while 

ITAPE f 0 indicates a binary 
tape of local forces is being 
created. 

6-9 A4 IBBOBI Four-character identification 

of vehicle configuration 
written on the binary tape 
(1st record). 

10 IX This column ignored. 

11-20 F10.0 XF First x value at which the 

integrand (local force) is 
computed. 

21-30 F10.0 DX Interval for x values (ignored 

if ITAPE f 0) . 

31-40 F10.0 XL Last x value (ignored if 

ITAPE 0). 

41-45 15 KODE Control code. If KOBE < 0, 

control is returned to main 
program after these calculations. 
If KOBE = 0, an EOF is written 
on tape (ITAPE £ 0), tape is 
rewound, and then control is 
returned to main program. If 
KOBE > 0, another card 1 (another 
set of x values) is expected 
before returning to main program. 
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TABLE V (Concluded) 


Card 

Columns 

Format 

Quantity 

Remarks 

1 

46-50 

15 

KC0DET 

If KC0DET is not equal to 
zero, additional time values 
will he read in. (See card 
type 1’ . ) 


51-60 

F10.0 

TF 

First time value. 


61-70 

F10.0 

DT 

Increment for time values. 


71-75 

15 

NT 

Number of time points. (The 
last time value, TL, is equal 
to TF + DT(NT-l) . ) 


76-80 

15 

LI 

If LI j 0, optional output 
from XJTANVT is printed. If 
11 = 0, no output from TJTANVT 
is given (normal). 

1* 

1-45 

45X 


These columns ignored. 


46-50 

15 

KC0DET 

Same type of format and 


definition as on card type 


1 . 


51-60 

F10.0 

TF] 

Same type of format as card 

61-70 

F10.0 

DT 

> 1, hut with new set of time 

71-75 

15 

NT] 

values.* 

76-80 

15 

LL 

Same type of format and 


definition as card 1. 


* The new set of time values is used along with the same x values as 

previously read in. on card 1 as well as the same KOBE value indicated 
on the previous card 1. 
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(t>) Same as (a) except the forces are desired at a sequence 
of equally spaced times, as well as locations. Again, a single card 1 suf- 
fices. It is the same as case (a) except that HI and DT should reflect the 
time sequence desired. Local forces will first he computed at time TF, at 
all locations; then at TF + DT at all locations, etc. 

(c) The forces at x = 7.5 are desired, on tape, at t = 0.1, 
0.2, and 0.5, and more MAIM2 data follow. - Two cards are required here, 
since the times are not equally spaced. A possible arrangement is a card 1 
with ITAEE = 1, XF = 7.5, DX = XL = 0., KOBE = 1, KCODET = 1, TF = 0.1, 

DT = 0.1, ET = 2 followed by a card 1’ with KCODET = 0, TF = 0.5', MT = 1. 

(d) The forces at x = 7.5, 15.0, and 22.5 are desired, on 
tape, at t = 0.1, 0.2, and 0.5, with data for another routine following. 

Since the times are not equally spaced, cards of type 1' will again be re- 
quired. The automatic sequencing of x-values is not possible since a tape 
is to be written. Therefore, six cards are required. The first two are 
identical with case (c) above. The fourth and sixth are copies of card 1' 
in (c), while the third and fifth are similar to card 1 in (e). They will 
differ in that the third card will have XF = 15.0 and the fifth card will 
have XF = 22.5. Moreover, the fifth card will have K0DE = 0, unless it is 
desired to put more local forces on the same tape later in the run (perhaps 
for a different Mach number). In that case, KODE should be -1 except for 
the last time, when KODE = 0. 

4. MAIK3 data : This major subroutine computes indicial total 

aerodynamic forces. A single data card indicates whether a tape is to be 
witten, the type of aerodynamic theory to he used (full indicial theory or 
quasi-steady theory) and the time intervals at which the results are desired. 
If unequal time intervals are desired, one or more cards designated as card 
1' may be used with card 1. The programs which read the tapes expect that 
the quasi- steady theory (KK = 3) has been used prior to using the full 
theory (KK = 5). Table VI gives the data format for MAIE3 data. 

Examples of MA.IH5 data : 

(a) It is desired to compute total forces at equally spaced 
time intervals for both the quasi- steady and the full indicial theory. Mo 
tape is to be written and a return to the main program is desired. Two 
cards of type 1 are required. The first should have ITA.EE = 0, KK = 3, 

KD0DE - 1, and MORSE = 0. The second should have ITA.PE = 0, KK = 5, KC0DE = 
-1, and MORSE = 0. Both cards should include the required time intervals, 
but they need not be the same. 


13 



TABLE VI 


DATA. FOR PROGRAM MA.HJ3 


Card 

Columns 

Format 

Quantity 

Remarks 

1 

1-5 

15 

IIAPE 

ITAPE ^ 0 denotes a binary 
tape of total forces being 
created while ITAPE = 0 in 
dicates-no tape shall be 
written. 


6-9 

A4 

IDBODY 

Identification of vehicle 
configuration written in 
first record of the binary 
tape. 


10 

IX 


This column ignored. 


11-20 

F10.0 

TF 

First time value. 


21-30 

F10.0 

DT 

Increment for time values . 


31-35 

15 

IT 

lumber of time points (the 
last time value would he 
equal to TF + DT(lT-l).) 


36-40 

15 

KK 

Type of aerodynamics, i.e. 


1 - instantaneous immersion 
(steady state value only); 

3 - pure penetration (quasi- 
steady); and' 5 - penetration 
■with lift growth (full in- 
dicial theory) . 

41-45 15 KCODE Control code. If KCODE < 0, 

control is returned to main 
program after these calcula- 
tions. If KCODE = 0, an EOF 
is written on tape (lTA.EE £ 
0), tape is rewound, and then 
‘control is returned to the 
main program. If KCODE > 0, 
another card 1 is expected 
"before returning to main 
program. 
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TABLE VI (Concluded) 


Card Columns Format Quantity Remarks 

1 46-50 15 MORET If MORE! 0, more time 

values will "be read in (see 
card type V). If MORET is 
equal to zero, this is the 
last set of time values. 

(if ITAPE f 0 and MORET = 0, 
program calculates the EX = 

3 case and then the EX - 5 
case using only the one data 
card. ) 


51-55 

15 

L2 

If L2 ^ 0, optional output 
of the integrand at each 
step is printed; otherwise, 
L2 = 0 for the omission of 
this output (normal ) . 

56-60 

15 

L3 

If L3 f 0, optional output 
of special values of x from 
POINTS are printed. If L3 = 
0, this output is omitted 
(normal) . 

1-10 

10X 


These columns ignored. 

11-20 

F10.0 

tf] 

Same type of format as card 

21-30 

F10.0 

DT 

► 1, but with a new set of 

31-35 

15 

htJ 

time values.* 

36-45 

10X 


These columns ignored. 

46-50 

15 

M0RE1 

! Same type of format and 

identification as card 1. 

51-55 

15 

L2~l 

Codes for optional output. 

56-60 

15 

L3J 

> Same format as card 1. 


* The new set of time values is used with the same EX value and the same 
KCOLE value as previously read in on card 1. 
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(b) Same as (a) except a tape is to be written. If both 
aerodynamic theories will utilize the same time intervals, a single card 1 
will do the job. It should have ITAPE / 0 and MORET = 0. KK will be assigned 
automatically. KG ODE should be either 0 or -1, depending on whether this is 
to conclude the tape. If the time intervals are to be different, three cards 
are required,* since in this case we do not want ITAPE / 0 and MORET = 0. 

The first card, of type 1, should have ITAPE / 0, KK = 3, MORET = 1, and 
KCODE =1. A card l 1 should follow with MORET = 0. The time intervals for 
the KK = 3 case should be split between these two cards (e.g. , the last time 
value might be on card 1’). Then a card 1 with ITAPE / 0, KK = 5, MORET — 0, 
and KCODE = 0 or -1 should follow. 

5. RESINP (deck COMKES) data ; This major subroutine computes fre- 
quency response data using user-supplied information and the magnetic tape 
produced by MAH2 and/or the magnetic tape produced by MA.IN3. (They are 
separate tapes.) The details of the data on the tapes are discussed in the 
next section. This integration routine takes advantage- of the fact that the 
Duhamel integral approach can be considered as functionally independent of 
the data on which it operates. The two tapes are in the same format; the 
computations are data-independent; and only the final output distinguishes 
whether local or total responses have been found. 

The user- supplied data specifies which tape is to he used — the 
local (MAIE2) tape or the total (M A.TW 3) tape. It also specifies which set 
of data on the tape is to be used. (There may be, for example, several 
geometries, Mach numbers, or even several locations for a given vehicle and 
Mach number, on the same tape.) The program searches the tape to locate the 
specified data. Finally, the user specifies the frequencies of interest. 

The data consists of three card types. The first contains alpha- 
numeric information which is used as a page heading for run identification. 

The second specifies the data set, from tape 3 to be used. The third type 
specifies the sinusoidal frequency or frequencies to be used. The data 
format is given in Table VII. 

A single call to this subroutine will suffice for finding both 
local and total frequency responses, for several geometry-Mach number com- 
binations. However, if the user wishes to change the heading, he simply 
returns to the main program by setting JC0DE = 0, and then re-enters this 
subroutine with a program control card containing a "4. " 

It is most efficient to request data sets from the tapes in the 
same order they were computed and written. This minimizes the search time 
of the program. 

* A .simple program change could reduce this requirement to two cards. 
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TABLE VII 


DATA POE SUBROUTINE RESINP 


Card 

Columns 

Format 

Quantity 

Remarks 

1 

1-72 

18A4 

headng 

Seventy -two character iden- 
tification for page heading. 

2 

1-13 ' 

P13.8 

EM 

Mach number.* . 


14-26 

F13.8 

UPSTRM 

Upstream velocity, U (meters/ 
sec) .* 


27-39 

E13.8 

VZERQ 

Downwash velocity, Vq (this 
quantity is no longer used 
in the computations and may 
he ignored). 


40-44 

15 

ITAPE 

ITAPE = 1 denotes the tape 
of local forces is to be 
processed; ITAPE = 2 for 
processing the tape of total 
forces . 


45-48 

A4 

IDBOBT 

Identification of vehicle 
configuration. Input value 
here should agree with that 
on the tape being processed. 
See MAIH2 or MAIN3. 


49 

IX 


This column ignored. 


50-59 

F10.0 

XF 

Station value (meters) at 
which local forces are de- 
sired (ignored if ITAPE = 2). 


60-64 

15 

KK 

Type of aerodynamics for 


■which total forces are de- 
sired (3 or 5 ignored if 
ITAPE « 1). 
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TABLE VII (Continued) 


Card 

Columns 

Format 

Quantity 

Remarks 

2 

65-69 

15 

JCODE 

Control code. If JCODE >0, 


a card type -2* Is to Be read; 
i.e., a new value of XF or 
of KK. If JCODE < 0, a card 
type 2 is to be read; i.e., 
a new type of vehicle con- 
figuration or a different 
tape is to be processed or 
different Mach number data 
are being processed. If 
JCODE = 0, this is the last 
data set and control is to 
be returned to the main 
program. 


1-49 

49X 


These columns ignored. 

50-59 

F10.0 

XF 

Same type of format and 
definition as on card type 

2. 

60-64 

15 

KX 

Same definition and type of 
format as on card type 2. 

65-69 

15 

JCODE 

Same type of format and 
definition as on card type 

2. 

1-15 

F15.0 

ACMF 

First frequency value 

16-30 

F15.0 

DAOM 

v„y„ 

Frequency increment. 

31-45 

F15.0 

AOML 

Last frequency value.** 

46-60 

F15.0 

VBAR 

Half -amplitude of the 
sinusoidal cross wind, 
(v = V COS U)t ) . 

61-70 

F10.0 

VLEHTH 

Length (meters) used to 


nondimensionalize frequency.** 
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TABLE VII (Concluded) 


Card 


Columns 


71-72 


Foimat 


12 


Quantity Remarks 

MOREOM If MOREOM > 0, a card, type 3 

is to "be read next; otherwise 
control continues according 
to value of JCODE. 


73-74 


12 


IOPT’ 


-Y-Y--V- 

|A A A 


Optional printout from QUATAH 
is obtained if IOPT > 0. 


75-76 


12 


Opi*** Tf OP1 > 0, optional output 

of intermediate results from 
the integration subroutine 
DUHUJT is obtained. 


77-78 


12 


0P2' 


,***• 


If 0P2 > 0, optional printout 
of time, t , sin u>t and cos 
uyfc used in DUHIHT are obtained. 


79-80 


12 


KOMEGA Controls dimensions of AOMF, 

HAOM, and AOML input data : 
KOMEGA data 


1 

2 

3 


a> (rad/sec) 
k = tuL/U 
Strouhal Ho . , 

S = k/2u = fb/u 


* Must be identical to values used for MAUT1, which have been placed on 
magnetic tapes. 

** See KOMEGA for units . 

*** These should normally be zero or blank. The optional printout' possible 
under IOPT, 0P1 and 0P2 should only be obtained when debugging is 
deemed necessary, due to the amount of paper generated. 
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Examples of data packs for subroutine RES IMP: 


(a) Find local frequency response at three vehicle stations 
and at four Mach numbers, assuming required indicial data are on magnetic 
tape. The data pack would consist of the following card types, in order 
given: 1, 2, 3, 2’, 2’, 2, 3, 2', 2', 2, 3, 2', 2’, 2, 3, 2', 2’. The 
four cards of type 2 would have ITAEE = 1, JCODE =1, and would contain 
different Mach numbers. The cards of type 3 would have MOREOM = 0. The 
cards of type 2 1 define the other vehicle stations, and make use of the 
card 3 read previously. The first of each pair of type 2’ cards would have 
JCODE = 1, while the second would have JCODE = -1, except for the very last 
card which would have JCODE = 0. 

(b) Find the total frequency response for the two aerodynamic 
types and for four Mach numbers. The data pack would he similar to that of 
(a), containing card types 1, 2, 3, 2 ' , 2, 3, 2’, 2, 3, 2’, 2, 3, 2'. The 
code differences are that ITAEE = 2 and JCODE = -1 on all cards of type 2 ' 
except last on which JCODE = 0. The type 2 cards would have KK = 3 while 
the type 2’ cards would have KK = 5. 

(c) Find the total frequency response for u) = (0.01)1.* 

and for qj = 1. (0.05)10. for the two aerodynamic types and for two Mach 
numbers. In this case, multiple card 3’s are used, so card type 2 ' is not 
advisable. The pack arrangement would be 1, 2, 3, 3, 2, 3, 3, 2, 3, 3, 2, 

3, 3. JCODE = -1 except for last card 2, where JCODE - 0. MOREOM = 1 on 
the first of each pair of card 3’s, and is zero on the second of the pair. 

6." Binary tape format : The binary tapes generated by MA.IE2 and 

MA.ISJ3 and used by RESINP have the same format. They consist of one or more 
sets of data, where a set is those data pertaining to a specific geometry 
and Mach number and, furthermore, to a specific vehicle station (for local 
responses) or to a specific aerodynamic type (for total responses). The 
sets are on the tapes in the order computed, which may be arbitrary. Again, 
there are two distinct tapes — the tape from MAIH2 and the tape from MAIM3. 

Each data set contains an identification record followed by a 
variable number of data records. The data records each contain 240 binary 
words (120 double precision numbers) whereas the identification record 
contains 15 + 2(MTEST) binary words, where one of the words is BTEST, de- 
fined below. 

The quantities which are in the identification record, and their 
definitions, are given in order below: 


* This notation means all values of co from 0. to 1. in steps of 0.01. 
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ITA.EE - 1 if created in MA.IN2 (local forces); 2 if created in 
M&IN3 (total forces). It is negative if the tape contains no 
more data; i.e., the record, in this case, is artificial and 
•warns that an "end of file" follows. This is necessary since 
the FORTRAN language cannot properly recognize an end of' file 
mark. 

IDBODY - Four -character vehicle identification. 

EM - Mach number (double precision variable). , 

UPSTRM - Free stream velocity in meters/sec (double precision 
variable) . 

XF - Station value (x- coordinate) at which the local forces are 
computed in MAJN2. An arbitrary value, XTEST (NTEST), is used 
in MAINS to keep the same form for the First Record in both sub- 
routines (double precision variable). 

KK - Aerodynamic type (3 for pure penetration and 5 for penetration 
with lift growth) . An arbitrary value of KK = 5 is recorded on 
the tape in MAIN2 to keep the form of the First Record identical 
in both subroutines. 

NTCOUN - Number of real time points in the following records • 

(does not count the last artificial time point, t = 1,000.) 

(See below. ) 

(FSTEDl(l), I - 1,2) - The steady- state values of the local (or 
total) force and moment, respectively (double precision). 

(See below for units.) 

NTEST - Number of "corners." Each conic section has two "corners," 
front and rear. The nose of the vehicle is NOT counted as a 
corner. If two conic sections adjoin, intersection is counted 
twice. Last "corner" is to b'e at the base of the vehicle. 

NTEST <: 20. 

(XTEST(l), RTEST(l), 1=1, NTEST) - Location of the corners in 
meters (double precision). Corners are. numbered starting at nose 
and going aft (nose itself not counted). 

The data records each contain 40 time values and the associated, 
computed aerodynamic quantities. All are in double precision and the aero- 
dynamic quantities are dimensionless (time is in seconds). For the total 
forces tape, the aerodynamic quantities are Cj^ and Cjj ; for the local 
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forces tape they are dCj^/d(x/D) and dCj^/ d(x/D) . The moments are taken 
about the vehicle nose, and are nondimensionalized by the base diameter, 

D , not the vehicle length. The order of the quantities is: tp , Cj^(l), 

C$^(l) , tg s C]^(2) , Cjy^(2) , t 3 , etc. for the total forces tape with a 
corresponding arrangement for the local forces tape. The sequence is ter- 
minated by the artificial time value of 1,000. sec.; the remainder of the 
240-word record is meaningless. 


B. Program II (TAERES) 

Since this program is a subset of Program I, the data are nearly 
identical. There are but two differences: (a) there should be no program 

control card containing the integer 4, and (b) there should be no data pack 
for subroutine RES IMP. This program contains no reference to RESHIP; to 
include data for it will be erroneous. Other than these restrictions, the 
user should refer to Section III-A of this manual for data preparation de- 
tails . 


C. Program III (RESHIP) 

This main' program is an expanded, stand-alone version of the sub- 
routine RESHJP used with Program I. It is capable of computing responses 
to sinusoidal winds or to arbitrary, specified wind profiles . 

If this program is used to compute sinusoidal responses, data 
preparation is identical to that described in Section III-A-5 with the 
following three exceptions: (a) there is, of course, no "program control 

card," (b) card 2, columns 70-72 should be blank. They are read as the 
variable WINTYP (format F3.0) which signifies sinusoidal winds if zero or 
blank (the present case) or a specified wind profile if nonzero (see below), 
and.(c) JCODE is interpreted somewhat differently on cards 2 and 2*. Re- 
call (Section III-A-5) that with the subroutine RESIEP, the value JCODE = 0 
caused a return to the main program. Since, here, RESINP is the main pro- 
gram, the value JCODE = 0 causes the program to start at the beginning- -i. e. , 
to read another card of type 1. 

The remainder of this section pertains to the use of RES DIP for 
finding responses to arbitrary wind profiles. In this case, the data 
preparation is similar to that just discussed. There are basically three 
types of cards, in addition to those which define the wind profile. The 
cards of type 1 and 2 (and 2’) are identical in format and use to those 
read by subroutine KESIHP (except WUJTY'P, card 2, columns 70-72 should be 1. ) 
and need not be discussed further. 
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Card type 3 is analogous to that described previously, but is in 
a different format and gives data relating to the wind profile rather than 
to frequency ranges. It specifies the altitude range and intervals (or 
flight- time range and intervals), nondimensionalizing quantities, and other 
control information. Its format is given in Table VIII. 

The wind data proper are read whenever NSKR (card 3) is not zero. 
The wind data consist of a header card and then a sequence of cards con- 
taining the wind velocity at 25 meter altitude increments, 10 increments 
per card. Table IX shows the format to be used. The number of wind cards 
after the header card is arbitrary, being given by UPRO/lO (truncated) + 1. 
The last card need not be filled. The wind values are to be arranged in 
order of increasing altitude. 

The particular format used here for the winds was chosen for con- 
venience in using with published data. 5/ It should, of course, be possible 
for the user to modify the format and/or the programs to match other re- 
quirements . 


* The wind data are subsequently differentiated by the program since the 
wind shears are actually utilized in the Duhamel integration procedure 



TABLE VIII 


CARD 3 DATA TOR PROGRAM III USING TOJD PROFILES 


Columns 

Format 

Quantity 

Remarks 

1-10 

F10.0 

FLYTHi 

First flight time value 
(seconds) at which response 
to wind is desired. 

11-20 

F10.0 

DFLYTM 

Incremental flight time 
(seconds) at which response 
is desired. 

21-30 

F10.0 

FLYTML 

Last flight time (seconds) 
at which response is desired. 

31-40 

F10.0 

Q 

Nominal aerodynamic pressure 
(Kg/M 2 ) corresponding to Mach 
number, velocity, and flight 
path. 

41-50 

F10.0 

RBASE 

Base radius (meters) used in 
nondimens ionali zat ion . 

51-60 

F10.0 

VLENTH 

Vehicle length (meters). 

61-70 

10X 


These columns ignored. 

71-72 

12 

MOSETM 

If > 0, another card of type 
3 is to he read; otherwise 
control continues according 
to value of JC0DE. 

73-74 

12 

NSHR 

If / 0, a new .wind profile 
is to he read next and wind 
shears computed. If = 0, 
previously read data are to 
he used. The first card 3 
must specify NSBR / O. 

75-76 

12 

OP1 

If OP1 >0, optional output 


of intermediate results from 
the Integration subroutine 
003FV0L is obtained. 
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Columns 

77-78 

79-80 


TABLE VIII (Concluded) 

Format Quantity Remarks 

12 0P2 If 0P2 > 0, optional print- 

out of time, t , sin out and 
cos out used in CONVOL are 
obtained. 

12 ET3ME If f 0, the data read as 

FLYTIM, DFLYTM, and FLYTML 
are interpreted as altitudes 
(in meters) rather than 
flight times and are con- 
verted accordingly. If = 0, 
the above definitions stand. 
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TABLE IX 


WIND DATA 


Card 

Columns 

Format 

Quantity 

Remarks 

Header 

1-7 ' 

A4, A3 

W0RD1, 

W0RD2 

Seven characters which user 
specifies to identify the 
wind profile. 


8-13 

16 

NERO 

Number of altitudes at which 
wind is given, at 25 meter 
intervals. (NERO < 750 ) 


14-19 

1-6 

INC 

Number of increments per 25 
meters to he used in check 
of wind differentiation. 
(INC £ 10. Does not affect 
end results . ) 

Wind 

cards 

1-7 

7X 


These columns ignored. 


8-13 

F6.0 

CALI 

Altitude (meters) of first 
wind velocity on this card. 


14 

IX 


This column ignored. 


15-20 

F6.2 

WV(J) 

Wind velocity (meters/second) 
at altitude, CALT. 


21-26 

F6.2 

W(J+1) 

Wind velocity at CALT + 25. 


27-74 



Eight more wind velocities 


at successive altitude 
intervals, each in format 
16.2. 
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IV. OUTPUT 


Each page of the printed output starts with the heading (See 
Table III, HEADING ) and page number. Subroutine LNCNT accounts for a cor- 
rect tabulation of page numbers which are printed automatically on output 
pages . 


In M ATTE L, if Sequence A of the input data is being used, the output 
is punched on cards for use in future runs. The following quantities are 
always printed (see Figure 2): 

EM - Mach number. 

UPSTRM - Speed, upstream velocity (meters/sec). 

VZERO - Gust velocity, v Q (nondimensionalized by UPSTEM) . 

ELAST - Total number of control points (excludes the origin). 

I, X(l), R(l) - Number of control point and' the coordinates, x and 
r, at this point (r is the body radius). 

RP(l) - Slope at the i^* 1 control point. 

KTYPE(l) - Type of solution (linear, corner or quadratic used at 
i'tb control point ) . 

XI (i) - (source location) in meters. 

T(l) - Starting times for sources in seconds. 

A(l), C(l) - Axial coefficient and cross flow coefficient, re- 
spectively, at i'tb control point. 

The output from MAIN2 gives the components of the integrand ap- 
pearing in the expression for the generalized force coefficient. These 
quantities are printed 'as follows (see Figure 3): 

X, R - Coordinates,, x and r, of computed components (r is the body 
radius corresponding to the x value, meters). 

T - Time in seconds. 

UA, VA, UC, VC - Velocity .perturbations, equal to (-B^a/3x), 
(-d^a/dr), (-B$c/3x), and (-30c/3r), respectively. 
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PAGE L 


3N VEX 0GP 


M 2.2 5 


MACH N0. Z. 250 > SPEED ' 768.096, GUST VEL. 0.001, USING 20 C0NTR2L POINTS 


NUMBH X R SL0PE TYPE XI 


B 3. 
9 4. 

10 4. 

11 5. 

12 5. 

13 5. 

14 6. 

15 6. 

16 7. 

17 7. 
16 8. 

19 0. 

20 9. 

21 1 . 


OOOOOOOE-39 
OOOOOOOE— 02 


OOOOOOOE-Q1 
5000000E-01 
OOOOOOOE— 0 1 
5000000E-01 

oooooooe-oi 

5000 OOOE-0 1 
OOOOOOOE— 01 
5000000E-01 
OOOOOOOE— 01 
5000000E-01 
9999900E— 01 
499990QE-01 
9999900E— 01 
4999900E-01 
9999900E-01 
4999900E-01 
9999900c-01 
4999900E-01 
OOOOOOOE 00 


0. OOOOOOOE-39 
9. 7499900E-03 


1. 89999806-02 
2. 7749960E-02 
3.5999940E-02 
4.3749950E-02 
5:0999930E-02 
5. 774992 0E-02 
6. 399909OE-O2 
6. 9749890E-02 
7 . 4999370E-02 
7.9749B80E-02 
8. 39998 10E-02 
6. 7749840E-02 
9.099 99 40E-02 
9 . 374982QE-02 
9. 5999780E-02 
9. 7749830E-02 
9.S999860E-02 
9. 974 98 00c -02 
1 . OOOOOOOE -01 


1.8999994c- 

1.8999994E- 


1.7999989c- 
1,69999906- 
1.5999997E- 
1.499999BE- 
1.3999999E- 
1.300000QE- 
1. 2000000 E- 
1.1 000001 E- 
1.0000002E- 
9.00000301:- 
S. 0000040 E- 
7 . 0000050E- 
6.0000100E- 
5.0000110E- 
4 . 0000 130E- 
3.0000 140E- 
2.0000150c- 
1.0000170c- 
0. OOOOOOOE' 


0. OOOOOOOE-39 
3.0348264E-02 
6.1 704309E-02 
9.40fe8159E-02 
1. 2743979E-0 1 
1.61S1914E-01 
1 . 9720634E-0 1 
2.3360129E-Q1 
2.7 10040 7E-0 1 
3.0941457E-C1 
3.4883289E-01 
3.8925894E-01 
4 . 3069 193c -0 1 
4. 731335 0E-01 
5.165829 1E-0 1 
5.6 1040 14E-0 1 
5 .06505 19E-G 1 
6. 5297785E-01 
7 • 0 0458 3 3E-0 1 
7 .489467 7E-0 1 
7 .98443476-01 


O.OOOCOOCE-39 
3.9511029E-0 5 
6.0334 1 ICE-05 
1.2246927E-04 
1.6591646E-04 
2. 10 6 7567 E- 04 
2.56746996-04 
3.04 13 033E-04 
3.5282 57 7E-C4 
4.02S332CE-04 
4.5415272E-04 
5 ,0a 764226-04 
5 . 6072669E-04 
6. 159S224E-04 
6.72 54 991E-04 
7 .304297 IE-04 
7.89621 5 9E-04 
8.5012 53 IE-04 
9.1194113E-04 
9.75 C6 9 2 2 E-Q 4 
1.0395 1CCE-G3 


3.7872447E-02 
■1. 1 667089 6-01 
6» 266C6C 16-02 
• 1.475 1920E-02 
i» 234C128E-02 
2. 311499 IE- OJL 
5.3C25332E-03 
3.883S034E-03 
4101905486-03 
3. 665E688E-03 
3. 5 1 575 11E-03 
3. 3247 137E-03 
.3. 1845242E-03 
3, 04211C0E-03 
2.9272 148E-03 
2. 8249656E-03 
2i 7362818E-03 
2 . 66051 14E- 03 
2.558 14C7E-0 3 
2. 54 57 023E-03 
3: 33 3 233~3 e" 3 2' 


-1.631573 3E- 04 
_2.6 1152 79E-Q4 
-1.8C47385E-04 
7.5436691E— 05 
-3.6675500E-05 
7.0888590E-Q6 
-9. 123098 OE -06 
-2.8244186E-06 
-4,85525416-06 
-3.6635689E-06 
-4.0844555E-06 
-3.891L919E-06 
-3, 915294 0E-06 
-3.9061309E-06 
—3, 990398 8E -06 
-4, 1010027E-06 
-4.2933984E — 06 
-4.4869 489E-06 
-4 » 8C20 525E— 06 
-5.247 6254E- 06 
3^33333336 32 


Figure 2 - Sample Output from MAHTl 
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PACE 2 



X 

k 

T 

UA V a ' UC 

VC 

( 1/UPHIT 

CCiNCX 

CCKAC (X/D) 

DCMDX 

DCMACIX/D) 

1.0000 

0.10000 

0.000 90 J 

1. 5332B-02-2. 7105c -20-C. 0000 V-39 

-0. OOOOE-39- 

-:.0CC0E-29 

C. OCO 56-39 

C.COCOOOOO 

0. OOOOE-39 

O.OOCCE-39 

1.0000 

1.0000 

0.10000 

0.10000 

0.000930 

0.000960 

1.5332E-02-2.7105E-20 2.3244t.-06 
1.5332E-02-2. 71u5E-20 8.40475-06 

6. 2512E-C7 
1. 1357E-C6 

2.3658E-C6 

1.17936-C5 

2. 3724E-05 
7.8C35E-05 

0 . 00364445 
0.01198761 

1 • 1 8 62E-04 
3.9017E-04 

1.8222E-02 
5 . 9938E-02 

1.0000 

1.0000 

0.10000 

0.10000 

0.000990 

0.001020 

1 . 5332E-0 2-2 .7105E-20 1.6439 r -05 
1.5332E-02-2.71U5E-20 2.7384C-05 

4. 70h4£-C7 
-1.3694E-06 

2.2336E-C5 
3 • 5974E-C 5 

1.38G5E-04 
2. 059 IE-04 

0.02120657 
C. 03163182 

6.9023E-04 

1.O296E-03 

1.0603E-01 
1 .58 16E-01 

1.0000 

1.0000 

0.10000 

0.10000 

0.001050 

0.001080 

1.5332E-02-2.7105E-20 4.25392-05 
1. 5332E-02-2.7105E-20 6.40G0E-05- 

-4.2225E-C6 
-7. 5424E-C6 

5.4117E-C5 
7 . 8923E-C 5 

2. 84 5 7 6-04 
3.781 6 E-0 4 

0.04371507 

0.05809633 

1 .42 28E-03 
1.8909E-03 

2 . 1 858E-01 
2.9048E-01 

1.0000 

1.0000 

0.10000 

0.10000 

0.001110 

0.001140 

1. 5332E-02-2.7105E-20 9.4943c-05 
1.5332E-02-2.71O5E-20 1.4008E-04 

-9.9089E-C6 

-7.9910E-C6 

1. 1366E-C4 
1.6318E-C4 

41927CE-04 
6; 364 7E-04 

0.07568882 

C.C9777424 

2.4635E-03 

3.1824E-03 

3.7844E-01 
4 . 8 e 87E- 01 

1.0000 

1.0000 

0.10000 

0.10000 

0. 001170 
0.001200 

1.5332E-02-2.7105E-20 2.0576t~ 04 
1.5332E-02-2.7105E-20 2. 98421— 04 

5.5055E-06 

4.5266E-C5 

2.3396E-C4 

2.3256E-C4 

8.2C22E-04 

1105456-03 

0. 12600205 
0. 16199124 

4.1011 E-03 
5.2725E-03 

6.3C01E-01 

8.0996E-01 

1.0000 

1.0000 

0.10000 

0.10000 

0.001230 

0.001260 

1 . 5332E-02-2.7105E-20 4. 16C9E-04 
1.55325-02-2.71056-20 5.4433C-04 

1.365 l6 - C 4 
3. 0928E-C4 

4. 5903E-C4 
5 . 9268E-C 4 

1 . 33 9 7E-03 
1. 645CE-03 

0 . 20580C60 
0.25270925 

6.6984E-03 

8.2252E-03 

1.0290E CO 
1.2635E CC 

1.0000 

1.0000 

0. 10000 
0.10000 

0.001290 

0.001320 

1 .5332E-02-2.7105E-20 6.2705C-04 
1.5332E-02-2.7105E-20 6.1647F-04 

5.69685-04 
8. 6540E-C4 

c. 5269E-C4 
E.7835E-C4 

1. 894CE-03 
2. OC 5 5 E-0 3 

0. 29C96248 
0 . 30808954 

9.4702E-03 
1 .002 8E-02 

1.4548E 00 
1.54C4E 00 

1.0000 

1.0000 

0.10000 

0.10000 

0.001350 

0.001380 

1 . 5332E-02-2.7105E-20 5.1829E-04 
1 . 5332E-02-2 .7105E-20 3.86345-04 

1.1128E-03 
1. 27C0E-C3 

5. 8468E-C4 
4.5558E-C4 

149736E-03 

ll86<?lE-03 

0. 30317630 
0,28667215 

9.8678E-03 

9.3306E-03 

1.5159E OC 
1.4334E CC 

i.OUOO 

1.0000 

0.10000- 

0.10000 

0. 001410 
0.001440 

1.5 3 32 6-0 2-2. 71 05E-20 2. 6625 1— 04 
1 . 5332E-02-2.7105E-20 1. 74075-04 

1.3495E-C3 

1.3815E-03 

3.37 14E-C4 
2.4590E-C4 

11 748 5 E -03 
ll 653 5E-0 3 

0.26876148 

0.25400484 

8.7476E-G3 

8.2673E-03 

1.343BE 00 
1.2700E 00 

1.0000 

1.0000 

1.0000 

0.10000 
3. 10000 
0.10000 

0.001470 

0.001500 

0.001530 

1. 5332E-02-2.7105E-20 1.082 12-04 
1. 5332E-02-2.71O5E-20 6.2155F-05 
1. 53326-02-2. 71 05E-20 2. 9833 5-0 5 

1.3893E-03 
1.3862E-C3 
1. 3789E-C3 

1. 8060E-C4 
1.3491E-C4 
1.0288E-04 

1. 5826E-03 
11 532 6E-03 
1.48816-03 

0.24311652 
0. 23543731 
0. 23013447 

7.91 30E-03 
7, 663CE-03 
7.49O4E-03 

1.2156E CO 
1.1772E CO 
1.1507E W 

1.0000 

1.0000 

0.10000 

0.10000 

0.001560 

0.001590 

1.5332E-02-2.7105E-20 6.7941c-06 
1.5332E-02-2.7105E-20-9.9761E-06 

1.37046-03 

1.36205-03 

8.0095E-C5 

6.3575E-C5 

1J4745E-03 

114586E-03 

0.22651018 

0.22406843 

7.3725E-03 

7.2930E-03 

1.1326E 00 
1.1203E OC 

1.0000 

1.0000 

0.10000 

0.10000 

0.001620 
C. 001650 

1.5332E-02-2.7105E-20-2. 24626-05 
1. 5332E-02-2. 71 05E-20-3. 19726-05 

1. 3542E-C3 
1. 3472E-C3 

5.1345E-C 5 
4.21C1E-C5 

1144 8 IE-03 
1.44 16E-03 

0.22246345 

0.22146C00 

7 . 2407E-03 
7.2081E-03 

1.1123E OC 
1.1073E 00 

1.0000 

1.0000 

0.10000 

0.10000 

0.001680 

0.001710 

1.5332E-02-2 • 7105E-2 0-3. 9374 E-05 
1.5332E-02-2.7lJ5E-20-4.5259c-05 

1.3410E-G3 
1. 3355E-C3 

2.4975E-C5 

2.9378E-C5 

114378E-03 
li 4364E-03 

0.22G8937o 

0.22065264 

7 . 1 896E-03 
7.1818E-03 

1.1C45E 00 
1.1033E 00 

1.0000 

1.0000 

0.10000 

0.10000 

0.001740 

0.001770 

1. 533 2E-02-2.7105E-20-5. 00275-05 
1.5332E-0 2-2. 7105E-20-5. 3961 E-0 5 

1.3308E-C3 
1. 3266E-C3 

2.49C8E-C 5 
? . 1 279E-C 5 

1.4364E-03 
1.437 6E-03 

0. 22065415 
0.22084L69 

7. 1819E-03 
7.1 8 S0E-03 

1.1C33E 00 
1.1C42E 00 

1.0000 

1.0000 

0.10000 

0.10000 

o.ooiaoo 

0.001830 

1.5332E-02-2 .71U5E-20-5. 72626-05 
1.5332E-02-2.7105E-20-6. 00736-0 5 

1.3229E-C3 

1.3197E-C3 

1.8292E-C5 
1. 5799E-C5 

1. 4397E-03 
114426E-03 

0.22117168 

0.22161287 

7.19E7E-03 
7 .2 131E-03 

1.1C59E 00 
1.1C81E CO 

1.0000 

1.0000 

0.10000 

0.10000 

0.301860 

0.301390 

1. 53326-0 2-2. 7105E-20-6. 25025-05 
1 . 5332E-0 2-2. 7105E-20-6. 4628 E-05 

1.3169E-03 
1. 3 145E-C3 

1 • 36 93E-C 5 
1 « 18 9 5E-C 5 

1.446 IE-03 
ll 4488E-03 

0.22214191 
0. 22274002 

7.23O3E-03 

7.2497E-03 

1.11C7E OO 
1.1137E 00 

1.0000 

1.0000 

0.10000 

0.10000 

0.001820 

0.001950 

1 .5332E-02-2.71G5E-20-6.6511.—05 
1.5332E-02-2.7105E-20-6. 81966-05 

1. 3 1235-03 
1. 3 104E-03 

1.0342E-C5 

S.9894E-C6 

1.4542E-03 
1. 45b 6E-03 

0.22339372 
0. 22409231 

7.2710E-03 

7.2938E-03 

1.11 TOE 00 
1.1205E CC 

1.0000 

1.0000 

3.10000 

0.10000 

0.001980 

0.002010 

1 . 53 32E-0 2-2. 71 05E-20-b. 97196-05 
1.5332E-02-2.7105E-20-7.11095-05 

1. 30S8E-C3 
1.30746-C3 

7.8C00E-C6 

6.7458E-06 

ll 463 BE-03 
1 1 468 5E-03 

0.22482699 

0.22559135 

7.31 77E-03 
7 . 3425E-03 

1.1241E GO 
1.128CE 00 

I.O'jOO 

1.0000 

0 . 10000 
0 . 10000 

0.002C40 

0.002070 

1.5322E-02-2.71u5E-20-7.23675-05 
1. 5332E. -02-2. 7105E-20-7. 357 11-0 5 

1.3062E-Q3 

1.3052E-C3 

5 . 804 1 E-Ofc 
4.9568E-C6 

1.47366-03 
ll 473 9E-03 

0.22638017 

0.22718934 

7.3682E-03 
7.3946E-03 
7.4 2 14E-03 
7 .44886-03 

1.1319E 00 
1.1359E OC 

1.0000 

1.0000 

0.10000 

0.10000 

0.002130 
0.002 130 

1. 53 32E-02- 2. 71055-20-7. 46705-05 
1.53325-02-2.71055-20-7.57146-05 

1. 3C436-C3 
1. 3036E-C3 

4.1895E-CS 

3.4904E-C6 

ll 4 84 3E-03 
1448986-03 

0.22,801552 

0.22885558 

1.14C1E OO 
1.1443E 00 
1 . i 4 8 5 E OC 
1.1529E CC 

1.0000 

1.0000 

0.10300 

0.10000 

0.002160 

0.002190 

1 . 53225 - 02 - 2 . 71 G 5 E - 20 - 7 . 6694 E -05 
1 . 53326 - 02 - 2 . 71 v . 5 E - 20 - 7 . 7624 E -05 

1.30305-C3 

1.30256-03 

2 • 8487E-C 6 
2 . 2580E-C6 

1449535-03 
1. 5C08E-03 

0.22970963 
0 . 23C57234 

7 .4766E-0 3 
7 . 5047F-03 

1 . JOOO 
1.0000 

o.ioooo 

0.10000 

C. 002220 
0.002250 

1 .53326.-02- 2.71 J5E-20-7. 85 126-0 5 
1 . 53326-02-2. 71 U55-20-7. 9365 5-0 5 

1.3C22E-C3 
1. 3020E-C3 

1.7C94E-C 6 
1.1975E-C6 

ll 506 6E-03 
1.51246-03 

0.23144670 

0.23233167 

7.5331E-03 

7.5619E-03 

7.5905E-03 

7.6206E-03 

1.1572E OC 
1.1617E CC 
1.1661E CC 
1.1707E CC 

1.0000 

1.0000 

3.10000 
3. 10000 

0.002230 
t. 002310 

1. 5 3325-02-2. 7 105E -20-8. 01 95 '--0 5 
1 . 53 325-02-2. 71 U56 -20- 8. 0987 5-0 5 

1. 3019E-03 
1. 30195-03 

7 • 2442E-C 7 
2.63C3E-C 7 

'1.5 18" IE -6 3 
1.52416-03 

0.23321C53 
0.2341333 2 

1.0000 

3. 10000 

0.002340 

1 . 533 25 - 0 2 - 2 . 71 U 5 E - 20 - F . 1 h 60 _- D 5 

1. 30195-03 

C.CCCOE-39 

1. 52 1 7c-03 

C. 23468717 

7 . 63 86E-C3 

1.1734E CO 


Figure 3 - Sample Output from MAHT2 
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(l/u) PHIT - Equals (l/u) ( 3jZ5/St) . 

DCETDX, LCNAI)(x/l>) - d(C w )/d(x) and d(C N )/d(x/D), respectively. 

DCMDX, PCMAD(X/D) - d(C M )/d(x) and d(C MQ) )/d(x/D) , respectively. 
Moments are nondimensionalized by the base diameter, not the 
vehicle length. 

In MAIM, the force coefficients and pertinent data are printed 
as follows (see Figure 4): 

K - Aerodynamic type (l or 2 for instantaneous immersion, 3 or 4 
for pure penetration, 5 or 6 for penetration with lift growth). 

TIME - Time (seconds). 

XSTF, XSTL - Lower and upper limits for the additional steady-state 
portion of the integrations (meters). 

XGUST - Ut, location of gust front (meters) . 

X2 - Upper limit of transient integrations when K = 5 (meters) 

CM - , per radian. 

CMA - Cj^ , per radian. 

CENT. PEES. - Location of the center of pressure from nose, in 
diameters. 

In RESINP (deck COMRES) the frequency response data are printed 
out. Each page contains the new heading read hy this routine and a page 
number. Pagination restarts each time a card of type 2 is read. The other 
data are as follows (see Figure 5): 

IUBODY - The four-character vehicle identification. 

EM - Mach number. 

UPSTRM - Vehicle speed, meters/sec. 

VZERO - Value of VZERO read hy this routine, nondimensionalized 
hy UPSTRM. 

NTEST - Number of "corners" defining the geometry, read from 
magnetic tape. 

XTEST(l), RTEST (i) - Coordinates, x and r, of the corners. 
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FcB • 

1968 

E . 10 

CONVEX OGIVE 

M 2.25 



K 

T I -Me 

X3TF 

XSTl 

XCUST 

X2 

CNA 

CPA 

CENT. PRES 

3 

0.000000 

0.0000 

0.0000 

0.0000 

1.0000 

0. OOOOOOOE-39 

O.OCCOCCOE-39 

c.ococ 

3 

0.000015 

0.0000 

0.0115 

0.0115 

1.0000 

9 . 4 8 30127 E-04 

5.4628981E-05 

C.OS76 

3 

0.000030 

0.0113 

0.0230 

0.0230 

1.0000 

3.7932051E-03 

3. 27773896-04 

Cl 08 64 

3 

0.000043 

0.0230 

0.0346 

0.0346 

1.0000 

3 • 53471 L4E-03 

1.0302473E-03 

Ok 1207 

3 

0.000060 

0.034o 

0 .0461 

0.0461 

1.0000 

1.5172820E-02 

2. 3959 718E-03 

0. 1575 

3 

0.000075 

0.0461 . 

0.0576 

0.0576 

1.0000 

2 • 379498 1 £-02 

4. 6463711 E-03 

0. 1953 

3 

0. 000090 

0.0576 

0.0691 

0.0691 

1.0000 

3.4233773E-02 

. 7. 9790 23 5E-03 

Cl 23 3 1 

3 

0.000105 

0.0691 

0.0807 

0.0807 

1.0000 

4.6339489E— 02 

1.2542743E-02 

012704 

3 

0.000120 

0.0807 

0.0922 

0.0922 

1.0000 

6. 01752 14 E-02 

1. 85215216-02 

C13C78 

3 

0.000135 

0.0922 

0.1037 

0. 1037 

1.0000 

7.5437756E-02 

2 • 6006 5 1 5E -02 

C. 3447 

3 

0.000150 

0.1037 

0.1152 

0. 1152 

1.0000 

9.2 1 521 77E-02 

3.5 175 22 3E-02 

013817 

3 

0.000165 

0.1152 

0.1267 

0. 1267 

1.0000 

1. 1035072E-01 

4. 6 198 53 5 E-02 

014187 

3 

0.000130 

0. 1267 

0.1383 

0. 1383 

1.0000 

1.300 1796 E-0 1 

5.9249 167E-02 

0.4557 

3 

0.000195 

0. 1383 

0 .1498 

0. 1498 

1.0000 

1.511 3429E-0 1 

7.4475540E-02 

Oi 4926 

3 

0.000210 

0. 1498 

0.1613 

0. 1613 

1.0000 

1.735 1022E-0 1 

9. 1395574E-02 

C. 5296 

3 

0.000225 

0.1613 

0.1728 

0. 1728 

1.0000 

1. 971 P341E-01 

1.116882CE-01 

0.5664 

3 

0.000240 

0. 1728 

0.1843 

0. 1843 

1.0000 

2.221 06 16E -01 

1.3395421 E-01 

016C-31 

3 

0.000255 

0.1843 

0.1959 

0.1959 

1.0000 

2.4H22825E-01 

1.5880071E-01 

0.6397 

3 

0.000270 

0. 1959 

0.2074 

0. 2074 

1.0000 

2. 7539023E-01 

1.86191246-01 

0.6761 

3 

U.0002b6 

0.2074 

0.2189 

0.2189 

1.0000 

3.0360350E-01 

2. 16 2 7435 E-0 1 

0.7124 

3 

0.000300 

0.2139 

0.2304 

0.2304 

1.0000 

3 • 32 36542 E-01 

2.491525 16-01 

C. 74 85 

3 

0.000315 

0.2304 

0.2420 

0.2420 

1.0000 

3.631 4174 fc-01 

2. 84922076-01 

0.7846 

3 

0.000330 

0.2420 

0.2535 

0.2535 

1.0000 

3. 943 1516E-01 

3. 2353873E-01 

C. 8235 

3 

0.000345 

0.2535 

0.2650 

0.2650 

1.0000 

4.2634470E-01 

3. 650667 6 E-01 

018563 

3 

0.000360 

0.2650 

0.2765 

0.2765 

1.0000 

4.592 2964 E-0 1 

4.0559471 E-0 1 

0.8919 

3 

0.000375 

0.2765 

0.2d80 

0.2880 

1.0000 

4. 929 3328E-01 

4. 3717 477E-01 

0.9275 

3 

0.000390 

0.2880 

0.2996 

0.2996 

1.0000 

5. 2742174E-01 

5.0784 38 2E-0 1 

Oi 9625 

3 

0.000405 

0.2996 

0.3111 

0.3111 

1.0000 

5. 6250478E-01 

5. 6 141 52 3E-01 

C. 953 1 

3 

0.000420 

0.3111 

0.3226 

0.3226 

1.0000 

5.982 5001 E-0 1 

6. 18 05 2 14 E-01 

1*0331 

3 

0.000435 

0.3226 

0.3341 

0.3341 

1.0000 

6.346 3258E-01 

6. 7779 12 IE-01 

1 * 06 8G 

3 

0. 000450 

0.3341 

0.3456 

0.3456 

l.oooo 

6.7161954E-01 

7. 4C65 58 CE-01 

1*1028 

3 

0.000465 

0.3456 

0.3572 

0.3572 

1.0000 

7 . 090 645 1 E-0 1 

8. 0645C57E-01 

111373 

3 

0.000430 

0.3572 

0.3687 

0.3687 

1.0000 

7 • 4 697438 E-0 1 

8. 7524564E-01 

1.1717 

3 

0.000495 

0.3687 

0.3802 

0.3802 

1.0000 

7 . 8 534530E-0 1 

9. 4 709 22 3E-0 1 

1.206C 

3 

0.000510 

0.3802 

0.3917 

0.3917 

1.0000 

8. 241 4444E-01 

1.0219744E 00 

11 240C 

3 

0.000525 

. 0.3917 

0.4033 

0.4033 

1.0000 

8.632593 BE-01 

1.0597 152E OC 

112735 

3 

0.000540 

0.403a 

0.4148 

0.4148 

1.0000 

9.0265643 E-01 

1. 1802887E OC 

1.3C76 

3 

0.000555 

0.4148 

0.4263 

0.4263 

1.0000 

9.4234441E-01 

1.2637424E 00 

1*3411 

3 

0.000570 

0.4263 

0.4378 

0.4378 

1.0000 

9. 8229547E-01 

1. 3500 5 11E OC 

113744 

3 

0.000585 

0.4378 

0.4493 

0.4493 

1.0000 

1.0224828E 00 

1. 4 391 84 8 E OC 

114075 

5 “ 

0.000600 

0.4493 

0.4609 

0.4609 

1.0000 

1.0627314E 00 

1.5207717E OC 

1.4404 

3 

0.000615 

0.4609 

0.4724 

0.4724 

1.0000 

1.1031058E 00 

1.62497C5E OC 

1.4731 

3 

0.000630 

0.4724 

0.4839 

0.4839 

1.0000 

1.143 58 66E 00 

1.72174e8E OC 

1*5056 

3 

0.000645 

0.4839 

0.4954 

0. 4954 

1.0000 

1.1341460E 00 

1.B210514E OC 

1.5375 

3 

0.000660 

0.4954 

0.5069 

0. 5069 

1.0000 

1.22465 19E 00 

1.9225551E 00 

1.5695 

3 

0.000675 

0. 50o9 

0.5185 

0. 5185 

1.0000 

1.2651135E 00 

2.0262787E OC 

1.6017 

“ T * 

0. 00(1690 

0.5185 

0.5300 

0.5300 

1.0000 

1. 305531 9E 00 

2. 132215 8E OC 

1.6332 

3 

0.000705 
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Figure 4 - Sample Output from MAHT3 
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Figure 5 - Sample Output from RESIKP 



Subheading - "LOCAL RESPONSES" or "TOTAL RESPONSES . " 

FSTEDY(l) , FSTEBY(2) - Nondimens ional steady- state values of 
Cjr and Cm (if "TOTAL") or of dCw /d(x/l)) and dCy /d(x/D) 
(if "LOCAL"). 

KK - Aerodynamic type 3 (quasi -steady theory) or 5 (full indicial 
theory). Ignore if "LOCAL." 

XF - Station location, meters. (ignore if "TOTAL.") 

OMEGA - cl) , the wind frequency (radians/sec). The wind is assumed 
to be of the form v = v cos u>t. 

K - The reduced frequency, k = u)L/U. 

K/2PI - The Strouhal number, S = k/2rr = fL/u. 

YEAR - The half amplitude, v , of the wind (meters/sec) . 

The frequency response data, per se , are tabulated by frequency. 
Both the normal force and the moment are given, in units defined below. For 
each, the response is written in the form 


R = % cos cot + Rq sin cot . 


The in and out of phase components, R 1 and R Q are given, as well as the 

magnitude R = 'Jri 2 + Rq 2 and the phase angle e = tan“l(R 0 /Ri) . The latter 
is given as an angle (in degrees) between -180° and +180°. 

The units are as follows: 

formal force (total) - Cjj- , the normal force coefficient corres- 
ponding to the cross flow velocity, v . To obtain dimensional 
units, multiply by Q (dynamic pressure, Kg/M 2 ) and A (base 
area, M 2 ) . 

Moment (total) - Cjj , the pitching moment coefficient about the 
vehicle nose. To obtain dimensional units, multiply by Q , A , 
and D (the base diameter). 

Normal force (local) - dCj]/d(x/D), the local normal force coef- 
ficient per caliber. 
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Moment (local) - dCjyj/ d(x/D) , the local pitching moment coefficient 
per caliber, measured about the nose. 

Program III generates printed output of wind responses. In the 
case of sinusoidal winds, the output is as just described and indicated by 
Figure 5. For arbitrary wind data, two types of output occur. The wind 
responses are tabulated in a fashion similar to that of sinusoidal responses; 
an example is shown in Figure 6. Again, each page carries a heading and 
page number. The wind input data and related quantities are printed as 
shown in Figure 7. The wind response data are described below; 

IDBODY - The four- character vehicle identification. 

EM - Mach number. 

UPSTRM - Vehicle speed, meters/sec. 

VZERO - Value of VZERO read by this 'routine, nondimens ionalized 
by UPSTBM. 

ETEST - Humber of "corners" defining the geometry, read from 
magnetic tape. 

XTEST(l) , RTEST(l) - Coordinates, x and r , of the corners . 

Subheading - "LOCAL RESPONSES" or "TOTAL RESPONSES. " 

FSTEDY(l), FSTEDY(2) - Nondimens ional steady-state values of 
. \ and C M ( if_ "TOTAL") or of dCj^/d(x/p) and dCj^/d(x/D) 

(if "LOCAL"). 


KK - Aerodynamic type 3 (quasi-steady theory) or 5 (full indicial 
theory). Ignore if "LOCAL." 

XF - Station location, meters, (ignore if "TOTAL.") 

W0RD1, W0RD2 - The wind profile identification (up to 7 characters) 

ALTUDE - The altitude, in meters, at which the response occurs. 

FLYTIM - The flight time, in seconds, at which the response 
occurs. 

CINP(l) -'The dimensional normal force (local or total) in units 
of Kg per caliber (local) or Kg (total). 
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WIND RESPONSE F0R SATURN V WITH FINS AND SHR0UOS M * 1.6 


PAGE 1 


VEHICLE TYPE - SAT5 « MACH N0. 1.60C, SPEED ' 469.629. GUST VEL. 0.002, 

N0. „0F CORNERS .. 9, VALUES RELOW ARE LOCATED AT THE CORNERS . PLUS THE, ,ENELJ!F THE .VEHICLE. . 


X 

R 

1.239 

0.332 

9.414 

0.332 

.. .11., 91 5 

.1.956 

16. AIR 

1.956 

24.949 

3.299 

37.955 

3.299 

A3. 734 

5.029 

98.519 

5.029 

. 1&6.484 

9.6A9 


.STEADY STATE CNA = 6.341C91E-01 

STEADY STATE CMA = 1.3934B9F OC 


L 


CAL 


RESPONSES 


AERODYNAMIC TYPE - 5 

S TA f ION " t X I = “22.103 



R E S P 3 N 

S E S T 0 

"wind P R 0 

F I 

L E , I C E N T I F I C A T ~I i 

. . _ 

. 


t 

IN M - K - 

■ S 

SYSTEM 0 F UNITS) 

ALTITUDE 

FLIGHT TIME 

N0RMAL F0RCE 

PITCHING H0MENT 

ALT ( L0W LIMt 

.12050,00 

80.8730 

1.428054E 

04 

3. 156427E 

C5 

12003.92 

12060.00 

BO. 9002 

1.428546E 

04 

3. 157516E 

05 

1201 3'. 90' 

.12070.00 

80.9273 

1.429384E 

04 

3 • 1 59368E 

05 

12023.87 

12080.00 

80.9545 

1.429706E 

04 

3. 16Q255~E 

05 

"12033.85 

12090.00 

80.9817 

1.431134E 

04 

3. 163236E 

C5 

12043.83 

12100.00 

81.0088 

1.433265E 

04 

3. 167946E 

05 

12053. '8 1 

12110.00 

81.0360 

1.437339E 

04 

3. 176949E 

05 

12063.79 

12120.00 

81.0631 

1.439685E 

04 

3. 182136E 

05 

12073.76“ 

.1213.0,00 

01.0902 

1.440332E 

04 

3.183566E 

t!5 

12083.74 

121 AO. 00 

81.1173 

1.441541E 

04 

3.186238E 

05 

12093.72 

J.2LSQ.00 

81.1444 

1.443044E 

04 

3 . 1 89560E 

05 

12103.70 

12160.00 

81.1714 

1.443963E 

04 

3. 191591E 

05 

12113.68 ' 

12170.00 

81.1985 

1.44T319F 

04 

3.199009E 

05 

12123.66 

12180.00 

81.2255 

1.453710E 

04 

3.213136E 

05 

12133.63 

12190,00 

,81.2526 

1.459733E 

04 

3.226448E 

05 

12143.61 

12200.00 

81.2796 

1.465786E 

04 

3.239826E 

05 

12153.59 

.12210.00 

81.3066 

1.4713C4E 

04 

3.252C24E 

05 

12163.57 

12220.00 

81.3336 

1.477851E 

04 

3.266495E 

05 

12173.55 

12230.00 

81.3606 

1.486348E 

04 

3.285275E 

05 

12163. S2 

.12240.00 

81.3875 

1.4935C0E 

04 

3.301C83E 

05 

12193.50 

12.250.00 

81.4145 

1.499684E 

04 

3.314T53E 

05 

12203.48 

12260.00 

81.4414 

1.5C6488E 

04 

3.329T91F 

05 

1221 3.46 

12270.00 

81.4684 

1.5C8534E 

04 

3.334313E 

05 

, 12223.44. 

12280.00 

81.4953 

1.504992E 

04 

3. 326483E 

05 

12233.42 

12290.00 

81.5222 

1 .50 1284 E 

04 

3.318287E 

05 

12243.39 

12300.00 

81.5491 

1.496788E 

04 

3. 308351E 

05 

12253.37 

12310.00 

81.5760 

1.491147E 

04 

3.2958B3E 

05 

12263.35 

12320.00 

81.6028 

1.485946F 

04 

3.284386E 

05 

12273.33 


2579 


Figure 6 - Sample Wind Response Output 



ALTITUDE 

525.00 

550.00 

575.00 

600.00 

625.00 

650.00 . 

675.00 

700.00 

725.00 

750.00 
775.-00 

800.00 . 

825.00 

850.00 

875.00 

900.00 

925.00 

950.00 

975.00 
LOQQ.OO 

1025.00 

1050.00 

1075.00 

1100.00 . 

1125.00 

1150.00 

1175.00 

1200.00 

1225.00 

1250.00 

1275.00 
’ 1300.00 

1325.00 

1350.00 

1375.00 

1400.00 

1425.00 

1450.00 

1475.00 

1500.00 

1525.00 
1550,0.0.. 

1575.00 

1600.00 

1625.00 

1650.00 

1675.00 

1700.00 

1725.00 

1750.00 

1775.00 

1800.00 

1825.00 

1850.00 

1875.00 

1900.00 

1925.00 

1950.00 

1975.00 


WINDS AND WIND SHEARS F0R WINO PROFILE NUMBER 2579 


WIND 

SHEAR AT 

INTEGRATED SHEARS 

AT 6.25 

METER INTERVALS 


.ALT t 12.50 . 

WITH 

LAST ONE 

AT ALTITUDE 

8.90 






8 .67 

-0.02680 





8.00 

-0.01640 

8.00, 




7.59 

-0.01640 

7.87, 

7.76, 

7.66, 

7. 56, 

7.18 

-0.02080 

7.45, 

7.35, 

7.25, 

7. 13, 

6.66 

-0 .01280 

7 . 0.1 * 

6.89, 

6.76, 

6.65, 

6.34 

-0.00080 

6.55, 

6.47, 

6.40, 

6.34, 

6.32 

0.01000 

6.31, 

6.30, 

6.30, 

6. 32, 

6.57 

0.00280 

6.36, 

6.41, 

6.47, 

6. 51, 

6 *64 

-0.00840 

6.55, 

6.57, 

6.58, 

6.57, 

6.43 

0.00680 

6.55, 

6.50, 

6.46, 

6.44, 

. 6.60 

0 .097 60 

6,45, 

6 • 4-8 t 

6.53, 

6.57, 

6.79 

-0.00920 

6.62, 

6 « 6 6 1 

6.70, 

6.70, 

6.56 

0.03240 

6.69, 

6.64 t 

6.62, 

6. 66 , 

7.37 

0.01520 

6.76, 

6.93, 

7.12, 

7.28, 

7.75 

-0.00360 

7.42, 

7.53, 

7.61, 

7.66, 

7.66 

0.02480 

7.68, 

7.67, 

7.67, 

7. 72, 

0.28 

-0.01360 

7. 8.0, _ .. 

7.94, 

8 .06, 

8.13, . 

7.94 

-0 .01440 

8.13, 

8.08, 

7.99, 

7.90, 

7.58 

-0.01280 

7.82, 

7.73, 

7.64, 

7.55, 

7.26 

-0.00680 

7.47, 

7.39, 

7.31, 

7.25, 

7.09 

0.00720 

7.19, 

7.14, 

7.11, 

7. 10, 

7.27 

-0.03400 

7.11, 

7.15, 

7.16, 

7. 11, 

6.42 

0.01760 

6,99, . 

6. 81, 

6.64, 

6. 55, 

6.86 

-0.00960 

6.54, 

6.61* 

6.70, 

6. 74, 

6.62 

-0.02960 

6.75, 

6.71, 

6.63, 

6. 52, 

5.88 

0.00200 

6.39, 

6.22, 

6.06, 

5.95, 

5.93 

-0.02400 

5.88, 

5.87, 

5.86, 

5.82, 

5.33 

0.027 60 

5.73, 

5.60, 

5 .49, 

5.46, 

6.02 

-0.00880 

5.51, 

5.64, 

5.79, 

5.87, 

5.80 

-0.02080 

5.90, 

5.88, 

5.81, 

5.73, 

5.28 

0.02160 

5.63, 

5.51 , 

5 .41, 

5. 38', 

5,82 

-0.00560 

5.42, 

5.52, 

5 .63, 

5. 70, 

5 .68 

0.01880 

5.73, 

5.72, 

5 .70, 

5.72 , 

6.15 

0.00920 

5.78, 

5.88 , 

5.99, 

6. C9 , 

6.38 

-0.03720 

6.17, 

6.23, 

6.25, 

6. 20, 

5 .45 

0.00600 

6.08, 

5.88, 

5 .68, 

5. 55 , 

5 .60 

-0.00400 

5.49, 

5.49, 

5.52, 

5. 54, 

5 .50 

0.00120 

5.53, 

5.52, 

5.50, 

5.48, 

5.53 

0.04200 

5.48, 

5.48, 

5.52, 

5.62, 

6.58 

-0.03120 

5.79, 

6.02, 

6.23, 

6.32, 

5.80 

-0.04080 

6.30, 

6 • 1 6 f 

5.95, 

5.74, 

4.78 

0.01000 

5.50, 

5.26, 

5.04; 

4. 91, 

5.03 

-0.00480 

4.85, 

4.87, 

4.92, 

4.95, 

4.91 

0.01240 

4.96, 

4.94, 

4.92, 

4.93, 

5.22 

0.00480 

4.97, 

5.03, 

5.10, 

5. 16, 

5 .34 

-0.03560 

5.21, 

5.25, 

5.25, 

5. 18, 

4.45 . 

0,00.2 00 

5.05 L 

4.86, 

4.67 j 

4. 53 , 

4.50 

-0.01640 

4.46, 

4.44 , 

4.44, 

4.41, 

4 .09 

-0.00080 

4.35, 

4.26, 

4.17, 

4. 11, 

4.07 

0.01240 

4.06, 

4.05, 

4.05, 

4. C8, 

4.38 

-0.02160 

4.13, 

4.19, 

4 .24, 

4.24, 

3 .84 

0.00640 

4.19, 

4.08, 

3.96, 

3. 89, 

4.00 

-0.01080 

.3.87, 

3.89, 

3.91, 

3. 91 , 

3.73 

0.01520 

3.89, 

3.83, 

3.79, 

3.78, 

4.11 

0.01680 

3.81, 

3.89, 

3.98, 

4. 08, 

4.53 

-0.03000 

4.18, 

4.29, 

4.36, 

4.35, 

3.78 

0 .02000 

4.27, 

4.12, 

3.97 , 

3. 90, 

4.28 

0.01640 

3.91, 

4.00, 

4.12, 

4.24, 


Figure 7 - Sample Wind Data Output 
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CINP(2) - The dimensional pitching moment (local or total) about 
the nose, in Kg - meters per caliber (local) or Kg - meters 
(total). 

ALTSTR - The lower limit of altitude (meters) in the Duhamel 
integration, determined by the time interval required to reach 
steady state. 

The. wind and wind- shear data (Figure 7) are as follows: 

WRD1, WRD2 . - The wind profile identification (up to.' 7' .characters ) 

ALTITUDE - The altitude (meters). 

Wn© - The horizontal wind velocity (meter s/sec) at this altitude, 

SHEAR - The computed wind shear at the midpoint between two 
altitudes (l/sec); specifically, at given altitude plus 12.5 
meters. 

VEL(l) - The wind velocity (meters/sec) obtained by integration 
of wind shear. This is done as ‘a check, with printout at 
interval specified as input data, INC. (See Section ' III-C. ) 

The last value is at given altitude, and does not necessarily 
agree with the original data. 


V. PROGRAM DESCRIPTIONS 


COMTAR - This is the mainline routine of Program I, and it calls 
MAIN1, MAIN2, MAIN3, or RESIBP if numbers 1, 2, 3, or 4 are read in. 

MAIN1 - A subroutine containing the master input routine: This 

program must be called at least once before MAIN2 and MAIN3 are called. The 
coefficients, A and C, are computed at all of the control points and punched 
along with other pertinent data on cards for use in future runs. 

The routine can solve, iteratively, for an "equivalent body shape" 
as described in reference 3. Two nonlinear algebraic equations are solved 
simultaneously by a two-stage process. First, a search for a sign change is 
carried out, beginning at the previous radius and working outward (+ and -) 
from there. A Newton- Rapheson interation is employed after a sign change 
is located. Extra printed output is produced during the iterative procedure. 
Some problems of poor convergence have occurred, especially when a "large" 
equivalent body is generated..!/ 
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MftXN2 - Computes local forces for a sequence of x and/or t 
values. Causes a tape to be created, as specified by data cards. 

MA.IH5 - Computes total normal force and pitching moment for a 
sequence of values of time. Either the full indicial theory or the quasi- 
steady approximation may be selected. Output may be both printed and written 
on magnetic tape. 

BXHTAP - A short routine which does the actual tape writing of all 
but the first record of data. 

IICTGRL - Performs numerical integrations to compute total normal 
force and pitching moment, as directed by MA.HJ3. Integrations may be either 
transient or steady -state. Technique used is a combination of the trapa- 
zoidal and Simpson's method, with a "look ahead" feature to determine which 
method will be used. 

HANDY - The steady- state velocity components at a point on the sur- 
face are computed by this subroutine. These components are calculated using 
a linear type solution, a corner solution or a quadratic type solution.^/ 

UTANVT - The transient velocity components at a point on the surface 
are computed by this subroutine. An additional component, the reciprocal of 
the upstream velocity times the partial derivative of f with respect to t 
is also calculated. As in UANDV, these components are computed using a 
linear type solution, a corner solution or a quadratic type solution. 

POUgS - The values of x at which the mf^- circle intersects the 
body surface are computed by this subroutine, m is the source number. 

LCTCET - A running count of lines and pages is provided by this 
subroutine which is called prior to each write statement in the program. 

The subroutine also allows for a heading consisting of a maxim um of 72 
characters and the page number to be printed on each page. 

COMELL - A subroutine which computes the values for an argument, 
m , of the complete elliptic integrals of the first and second kinds K(m) 
and E(m) , respectively. Hastings' approximations are used; namely. 


4 4 

K(m) = a i (m 1 ) 1 - ln(mi) ^ biO^) 1 (1) 

i=0 i=0 
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( 2 ) 


4 - 

E(m) = l.° + ^ c i (m 1 ) 1 
i=l 


4 


i=l 


where = 

a o = 

a l = 
= 

a 3 = 

a4 — 


1 - m 

1.38629 436 
0.09666 34426 
0.03590 09238 
0.03742 56371 
0.01451 19621 


b 0 = 0.5 

hX = 0.12498 5936 
b 2 = 0.06880 24858 
b 5 = 0.03328 35535 
b 4 = 0.00441 787012 


c-l = 0.44325 1415 
eg = 0.06260 60122 
e 3 = 0.04757 38355 
c 4 = 0.01736 50645 


d-L = 0.24998 3683 
a 2 = 0.09200 18004 
ds = 0.04069 69753 
di = 0.00526 449639 


H'TCELh - The incomplete elliptic integrals of the first and 
second kinds, F(m,qj) and E(m,cp) , for the input values of sin 9 and m 
are computed by this subroutine. Landen’ s transformations for m small 
and for m close to one are used, fhese expressions for m small; i.e., 
(m) 1 / 2 less than 0.5, are as follows; 

5 

F(m,cp) = lim (1 + K x )(l + K^)....(l + K n ) (3) 

n-><» 2 

E(m,9) = F(m,cp) [l - g ^1 + | K x + K jEg + %KgK 3 . . . 

+ ^ [| ^ sin §i + ~ ^KiK^ sin § 2 + ~ a|k[k>^ sin5 3 ....l (4) 


where 


Ko = 


m 1 / 2 
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*n = 



§ 


o 


= 


tan (§ n - $ n-1 ) 



tan $ n _ x 


( 5 ) 


In this instance, § n itself does not approach a limit as n approaches in- 
finity. In fact, f-j_ is approximately twice , etc. This leads to 
computational difficulties. Therefore, a quantity, x n = l n /2 n , was used in 
the iteration scheme. This quantity was determined in the following manner. 
From Eq. (5) one may write 


§ n = ® n _i + tan 


-1 




i-1 


tan 


®n-l . 


( 6 ) 


Let 

*n 

x n 2 n 


and define 


^n-lC 1 “ e ) = 



- iHl tan 


Then, 


( e$ n-l) 


tan“t 


Jl^ 

I _ tan § n _ x 

1 + >l 

1 - tan2 *n-l 


and 


x n - x n-l “ 


(e^n-l) 

2 n 


( 7 ) 
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The sequence of x^'s converges nicely. When, K n is approximately zero, 
using the final value of x n one may compute P(m,cp) . Likewise, E(m,cp) 

may he calculated since the sum of the products, <jn %%...% sin i n !• , has 


"been stored. For m close to one the expressions using Landen's trans- 
formations are 


F(m,<p) = ^(KpKgKg. - • K n _ 1 )/m 1 / 2 j ^ log e tan(Tr/4 + i/2) 


( 8 ) 


E(m,cp) = F(m,tp) 


1 + nr 


lV2 


( 1 + fe 


2 2 
f t r -rr • • • 1 


n-1 


K l K 2 


KiK2- - .K n -l KpKg 


2* \ 


-m 1 /^ 


2 sin in 2 2 sin i 2 2 n_1 s i n 2 n sin i n 

Sin CO . + = . + — + . . . + - ... ' ■ ■■ ■ 

^Ki AFoKi***%-2 '\K5K1 — 


( 9 ) 


where 


= nr®-/ 2 


Ko = m- 


Kn = 




1 


1 + %_! 


-o = 9 


sin (2§ n - § n _ 1 ) = K n _! sin i n _i 


( 10 ) 


lim i n = ffi 

n — ^ oo 


In this section of the subroutine cp > > §g ... and cp <, rr/2 ; 

therefore, i n is always in the first quadrant. From the above expressions 
for F(m,cp) and E(m,cp) , it is obvious that- only sin i n must be iterated. 
This is calculated from 


sin i n 



(1 + %.! sin 2 # n-1 ) 


- |[(1 - sin 2 i n _!)(l - 



sm $ 


-4 v i 


1/2 


( 11 ) 
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Here approaches one; i.e. , = (l - approaches zero. When the 

desired accuracy is reached for ~ 0.0 , the quantities F(m,cp ) and 
E(m,cp ) are computed. 

ARCOSH - A function routine which computes the inverse hyperbolic 
cosine using the log and square root library subroutines. If the argument , 
x , is less than one, a message is printed and the ERROR subroutine is 
called. 


ERROR - This subroutine prints a message that the ERROR routine 
has been called, provides a dump of COMMON and an error trace. -Then the job 
is ended. The error trace is part of the IB SIS software, and may operate 
differently on a different machine. 

RESINP (deck C0MRE3 ) - Computes frequency responses corresponding 
to total and local forces. This routine reads data, prints output, and 
controls the integration routine, DUHIRT. 

FIETAP - Locates a specified set of indicial responses on magnetic 
tape. Job is ended if the specified set is not located. 

BUHINT - Integrates the indicial responses to find the in- and 
out-of-phase responses- to a sinusoidal wind. Both the force and moment are 
integrated using the Duhamel convolution approach. The interval size is 
controlled by the indicial response data on tape. Simpson's rule is used 
when the indicial response is known at three equally spaced intervals; 
otherwise the trapezoidal method 'is used. 

QUA.TAN - Evaluates the- arc tan function, correctly specifying the 
angle between -tt and rr . 

1APREB - This is the mainline' -routine of Program II. It calls 
miEl, MA.IH2, or -MA.IN3 if numbers 1, 2, or 3 are read in. 

REBTNF - This is the mainline routine of Program HI. It is an 
expanded version of subroutine RESINP (deck CQMRES). In addition to enabling 
the computation of frequency response data, it allows responses to arbitrary 
wind profiles to be calculated. 

The altitude -flight time relationship is assumed to be of. the form 

h = a + bt + ct 2 . 

The present version of the program sets 

a = 3279.122 , 


43 



b = -150.6733 


> 


c = 3.20411 , 

■which were obtained, by a curve fit to the 'nominal trajectory for AS504 .6/ 
These constants can he readily modified hy changing cards RESP1102, RESPll'04, 
and RESP1106, together with three like cards in BWVDT. 

SHEARS - Reads and stores wind profile data; ' computes wind shears • 
(see reference 4 for method) and provides the integral of the computed 
shears as a check on the method. 

CONTOL - A slight modification of subroutine DUHINT, which allows 
wind data, as well as a sinusoid, to be used in the Duhatnel convolution 
technique - 


DMVDT - Computes the time derivative of the wind, by interpolation 
of tabulated wind shears and utilizing- time- altitude transformation. Also, 
obtains the wind velocity at any desired altitude by a combination of table 
look-up (to nearest 25 meter level) and integration of wind shears. 


VI. OPERATING INSTRUCTIONS 


The programs are all written in PORTRAIT IV and have been run under 
IBSIS on the IBM 7094- II. Double precision arithmetic has been used to a 
great extent. Other than tape assignments, etcv , the only known aspect 
which may require modification on another machine is the "error trace" 
generated by the system upon an (implicit) call by subroutine ERROR. How- 
ever, it is not unlikely that other minor changes may be required to satisfy 
certain other compilers and/or "operating systems. • 

The list of program decks was given in Table I. Figures 8, 9, and 
10 show the linkages between subroutines for programs I, II, and III, 
respectively. 

The tape usage includes two special -tapes in addition to the normal 
system input/output . The complete tape utilization is. shown in Table X, as 
set up for use at the NASA-MSF.C Computation Center.- All tapes are at 800 bpi 
density. 


Time estimates - are best made for each of the major subroutines, 
separately. Even here, though, such estimates will be quite approximate. 

Many alternate paths exist in the programs, and it is not generally practical 
to try to predict in detail the number of times each path will be chosen. 

It can be said that the time required is approximately proportional to the 
product of the number of time values and the number of x values for which 
output is requested. Also, the time is roughly proportional to the square 
of the number of control points selected. 
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Figure 8 « Subroutine Linkage - Program 1 
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Figure 10 - Subroutine Linkage - Program III 
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TABLE X 


MAGNETIC TAPE UTILIZATION 


Logical 

FORTRAN 



Unit 

Unit - 

Mode 

Use 

A2 

•5 

BCD 

System input. 

Bl 

6 

BCD 

System output. 

B2 

7 

BCD 

System punch. (Written by 
subroutine MAIN! only. ) 

A5 

8 

Binary 

Local normal forces. Written 
by MAIN2, read by RESINP. 

B6 

11 

Binary 

Total normal forces. Written 
by MAIN3, read by RESINP. 


To assist tlie user in making time estimates, the following sample 
values are given: 


1. Subroutine MAINL, data Sequence A, 60 control - points, requires 
less than 1 min. Using data Sequence B, the time is usually negligible. 

2. Subroutine MAli'12 , 110 control points, 13 time values, 270 x 
values, requires about 8 min. 

3. Subroutine MA.H'13 , with KK = 5 requires about 3 min. to compute 
forces for 500 values of t using 20 control points. The time is reduced 
greatly . (say, 70 percent) with KK = 3. 

4. A complete run consisting of (a) 35 control points, data 
Sequence A for MA.IN1; (b) 350 x values and 10 t values for MA.IN2; (c) 200 
values of t for MAIM3 with KK = 3 requires about 3 min. The majority of this 
time is for MAIN2. 

5. For a series of ogive shapes, runs consisted of (a) data 
Sequence A for MAIK1, (b) local indicial response at one station at 90 t 
values, (c) total indicial responses for KK = 3 and 5 with 90 t values, and 
(d) frequency responses at the one station as well as for the entire vehicle 
(both KK values) at 120 frequencies. The number of control points, N , 
varied. The total computer time for each ogive was found to be satisfac- 
torily fitted by t = 0.7 + 0.001833 s min. 

6. For a series of wind, response calculations of the Saturn V, 
where the number of time intervals- in the indicial responses averaged 160, 
the computer time per response was approximately 0.005 min. This value was 
obtained for both the sinusoidal responses and the arbitrary wind responses. 
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Figure II - Flcrw Diagram for Subroutine M ATlff l 
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Figure 12 - Flow Diagram for Subroutine MAIN2 
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Figure 13 - Flow Diagram for Subroutine MAIN3 
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Figure 14 - Flow Diagram for Subroutine RESETP 
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Figure 15 - Flow Diagram, for Subroutine UTMVT 
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Figure 16 - Flow Diagram for Subroutine COMELL 
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Figure 17 - Flow Diagram for Subroutine INCELL 
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Initialization 
IM = TIME- T(M) 
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Figure 18 - Flow Diagram, for Subroutine POINTS 










Figure 19 - Flow Diagram for Subroutine INTGRL 
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c 

MAIN PROGRAM - 3089P - C0HTAR - CREATES BINARY TAPES OF LOCAL 

C2MT LOCK* 

c 

FORCES AND/OR TOTAL FORCES (CNA AND CMA1. 

DOUBLE PRECISION EH, EH2.UP STRM , VZERO, TJ ME, EPS, RBASE, BET A,BETA2, 

C&MT 10 LO 
C2MT 102 0 


— iCF(i8),xn5inTTrfi'5zn .RPitboi ,xn i5oi,nret>r,AU5oi7ra?oi, 

2UAS( 300 1 . VAS C 300 1 

tUMI ill 3 (3 
C0MTLO4O 


i,KKDl[3,300l, CNA. C RS " ' ' 'CSHT1050 

C0HH0N EH,UPSTRH.VZER0.EM2,X.R,RP,Xt,T,A,C.aETA.BETA 2 , T I Mb .KPS *CF iCfcMT 106 0 
1CNA.CMA.HRD1. f 0 HTT07 0 


2RBAS£.UAS.VAS,KTVPE( 1501.NLAST CZHTIOBO 


10 

AEAOI5,20n 


COTITOU 

20 

FORMAT (121 


CeHTllOO 


GO TO (1,2,3,41,1 


CENT mo 

1 

CALL MAINl 


C2 mt ii 2a 


GO T 0 10 


C0HTri3O 

2 

CALL MAIN2 


CBMTil^O 


GO TO 10 


COM! 115U 

3 

CALL MAIN3 


C£MT1160 


G0 T0 10 


CfcMf 1170 


CALL RESINP 


C0MTU3O 


“GiTTir' 15 


CEMTT190 


END 


C£MT 1200 


SUBROUTI NE MAIN1 

INPUT OAT A * AND COMPUTE COEFFICIENTS. 

DOUBLE PRECISION EM, EM2,UP$TRH, VZERO, TIME, EPS, RBASE, BETA, BETA2, 
1CF(181,X(150 1,R(150) ,RP(150),XH150J ,T( 150) , A(150] ,C(150> , 
ZUAS13001 , VAS 1 300 I 
3, HRDK3, 300) ,CNA,CHA 


MANI1000 
MAN! 10 10 
MANI102O 
MAN11030 
HAN11040 
MAN11C50 
MAN11060 
HAN11070 


COMMON EH, UPSTRM, VZERO, EM2,X,R,RP,X I, T,A,C, SETA, BETA2, TIME, EPS ,CF,MAN1108C 
1CNA,CHA,MRD1, MANI1C90 

2RaASE,UAS,VAS,KTYPE( 150>,NLAST KAN1U00 

C0HMON/HEAD/ HEADNGI 18 I MANU110 

DOUBLE PRECISION SUMRA, SUMXA, SUMRC, SUMXC ,PSI XA, PSI XC ,PS IRC,PSI RA, MAN1I120 
1TR,TT,E, ALFA ,QA,QB , QC, VZ0, RBOT.TRBR > FACTR,RO0TSQ ,XX, DCNADX iTTPl , MAN1I130 
2BETA1,TFRM,RPP,RPM,RPRIHE, ARG.ROOTI, SLOPE, BR,F»EPSN, HEIGHT, RUPPER , H AN1 U40 


3EP (2 ) , ELI 2 ) i RADI ( 2 ) , QAC0I2) iSIGI 21 »£NWP»£NWH,RNEW,E1 ,E2, R1,R2 
DIMENSION IC0OEI2) 

REA0[5,888)HEADNG 
388 F0RHAT ( I 8A41 

CALL LNCNT 10 ,KKKK ) 

900 READ .(5, 109) EH.UPSTRM, VZER0.NLAST, EPS, DCOE, HEIGHT, RBASE 
109 FORMAT (3F13* S, I3,FI3.8,2F6.0,F13.B) 

EPS IS READ IN AS A SMALL -FUDGE FACTOR- (ABOUT .0000001] 

TO BE USED TO ELIMINATE DIFFICULTIES CAUSED BY ROUND-OFF AND 
TRUNCATION ERRORS. EPS IS THEN CHANGED, FOR CONVENIENCE, TO 
BE SLIGHTLY LESS THAN ONE. 


10 

20 


MANI1150 
MAN111SS 
HAN11160 
MA N1 1170 
MAN11180 
HAN11190 
MAN11200 
HANI12I0 
HAN11220 
MAN11230 
HAN11240 
HAN11250 
MAN11260 
MAN11270 
MAN11280 
MAN1129C 
MAN11300 
HAN11310 
MAN11320 
MA N11330 
MAN1134G 
MAN11350 

VZERO AND ALL OTHER VELOCITIES HILL BE TREATED AS NON-DIMENSIONAL HAN11360 
EXCEPT WHEN NOTED OTHERWISE MAN11370 
NL AST IS THE NUMBER OF CONTROL POINTS ON THE BOUNDARY, NOT COUNT INGMAN11380 


I F ( HEIGHT 110,10,20 
HEIGHT = 1. 

CONTINUE 
EPS = 1.— EPS 
EH2=EH*EH 
BETA2=EM2-1. 0 
BETA = DSQRT (BETA2 ) 
VZ ER0=VZ ERO/UPSTRM 


THE ORIGIN. 


IT IS ALSO THE NUMBER OF SOURCE DISTRIBUTIONS. 


NN-NLAST +1 
CALL LNCNT ( 2 ,KKKK ) 

WRITE (6, 1011 EM, UPSTRM, VZERO, NLAST 
101 FORMAT l 9H HACK NO., F7.3, 7H, SPEED.F10.3 ,11H, GUST VEL. 
1 7H, USING, 14, 15H CONTROL POINTS /I 


MAN11390 
MANllAOO 
MAN11410 
MAN1 1620 
MAN11430 
>F9.3, MA N1 1640 
HAN11450 
MAN11460 

HE CHANGE SIGN OF VZERO. MAN11470 

THIS EFFECTIVELY CHANGES OUR SIGN CONVENTION TO AGREE WITH OTHERS. HAN1 1480 

MAN11490 

VZERO = -VZERO MA N11500 

IF (NLAST-148 1110,110,120 MAN! 15 10 

120 CALL ERROR MA Nil 520 

MAN11530 
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IF 0C9E « 0., PREVIOUSLY COMPUTED C96FFIC I ENTS ARE READ IN FROM 
CARDS. OTHERWISE. CBNTR0L P0INT OATA IS READ AND COEFFICIENTS 
ARE COMPUTED. 

110 !F(OC0E)19O,352,19O 
190 X(1)«0. 

R!l)-0. 

KTYPEUI-0 
XI 111*0. 

FOLLOWING LOOP READS THE CONTROL POINT DATA, TWO POINTS PER CARO. 


MAN11540 
MINI 1550 
HAN11560 
MAN! 1570 
MAN1 1580 
MANI 1590 
MAN11600 
MAN 11610 
MANt 1620 
MAN11630 
HAN11640 


AT A SHOULDER. TWO POINTS ARE NORMALLY REQUIRED. THE FIRST SH0ULDMAN1165O 


200 


230 
2 AO 
250 
2 00 
30Q 


BE OF TYPE 1 (A CORNER SOLUTION! WITH THE SLOPE UPSTREAM OF THE 
CORNER. THE SECOND WILL BE TYPE 0, WITH THE DOWNSTREAM SLOPE. 
TYPE 2 SOLUTIONS MAY REPLACE TYPE 0 SOLUTIONS EXCEPT FOR N * 1. 
TYPE 0 IS THE SO-CALLED LINEAR TYPE, WHILE TYPE 2 IS THE 
QUADRATIC TYPE. 

THE FORMAT IS . . . . 

FORMAT (2(3F10.0,I5)) 

DO 200 N-2,NN, 2 

READ(5,100)X(N),R(N) ,RP IN) .KTYPEIN) , XCN+1) ,R!N+1),RP(N+1) » 

1 XTYPEIN+ll 

XI (NI«tXIN)-BETA*R(N)!*EPS 
XI (N+i)»(X(N+i)-BETA*R(N+l) )»EPS 

FOLLOWING LOOP CHECKS THE CONTROL POINT DATA 

SLOPE-1. /BETA 

DO 300 N»2,NN 

IF (RINI 1300,230,230 

IFIRIN-l I 130 0,240,250 

IF I X 1 1 N )— XI (N— 1 ! 1250,260,260 

CALL ERROR 

I F (RPINI— SL0 P£)300 , 250, 250 

CONTINUE 

RP(i)-RP(2) 

DETERMINE THE SOURCE AND DOUBLET DISTRIBUTIONS 


THE LOOP ENDING AT 5000 COMPUTES THE COEFFICIENTS -A- 
AT ALL OF THE CONTROL POINTS. 


AND -C- 


SUFFIX RA 
SUFFIX XA 
SUFFIX RC 
SUFFIX XC 


AXIAL FLOW, 
AXIAL FLOW, 
CROSS FLOW, 
CROSS FLOW, 


R-DERIVATIVE, 

X-DERIVATIVE. 

R-DERIVATIVE. 

X-DERIVATIVE. 


LIM * ino 

XLIH * LIM 

351 00 5000 N-l, NLAST 

KODER * 0 
ITER-0 
N1 - N + 1 
XX « XIN+l) 

IF(R(N+1)1 2003,2005,2005 
2000 IF (KTYPEIN I- 1)9003, 8 100, 9003 
6100 PERCT - RP(N*1I 

RPIN+i) • RP(N! ♦ PERCT*(SLOPE-RP(N) ) 

NJ - NJ - 1 

CALL LNCNT14.KKKK) 

WRITEI6.049CM 

6493 F0RMATI//4X1 HN,8X4HX IN 1 , 16X4HR( N I , 16X 5H SLOP E ,8X4 HTYPE , 8X5 HX I IN) , 
115X4HAIN) , 16X4HCIN)/ ) 

DO 8495 J-l.N 
CALL LNCNTU.KKKX) 

I F ( KKKK ) 8495 , 8493 , 8495 
8493 CALL LNCNT (4 , KKKK ) 

WRITEI6, 8490 1 

6495 WRITE! 6, 8500 )J, XI J ) , R( J ) ,RP ( J ) .KTYPE I J) ,XI1J),A(J),C(J) 

6500 FORMAT! I 5.1P3D20. 12, 13 , 2X, 3020, 1 2 ) 

R(N*1I«R(NI 
KBOER - -1 
GO TO 9004 

9003 RtN+1) - R ( N ) + (X(N+1)-XIN)|ARPIN) 

RUPPER - R (N ) + (X(N+1)-X(N))/BETA 
SIG(l) - (RUPPER— R IN+l) J /XL IN 
5IGI2) - (R( N+il-RINl l/XLIM 
KBOER - l 
KSUB • 3 
KDIR • 0 
IC0DEI1) - li 
I C ODE f 2 I « 0 
9304 DCNADX » RPIN+li 


MANI 1660 
MAN11670 
MANI 1660 
MANI 1690 
MAN11700 
HAN11710 
MANI 1720 
MAN11730 
MAN11740 
MAN11750 
MANI 1760 
MANI 1770 
MAN11780 
MANI 1790 
MAN11800 
MANI 1810 
MANI 1820 
HAN11830 
MANI 1840 
HAN11850 
MANI I860 
MAN11870 
MANI 1880 
MANI 1890 
KAN11900 
MANI 1910 
MAN11920 
HAN11930 
MANI 1940 
MAN! 1950 
MAN11560 
HAN11970 
MANI 1980 
HAN11990 
MAN12000 
MAN12010 
MAN12020 
MAN12030 
MAN12040 
MAN120S0 
MAN12C6C 
HAN12070 
MAN12075 
KAN1208O 
HAN12090 
KAN12100 
KAN12101 
KAN12102 
KAN12103 
MAN12104 
MAN12105 
HAN12106 
MAN12107 
MAN12108 
MAN12109 
HAM2110 
HAN12111 
MAN12112 
MAN12U3 
HAN12114 
HAN12115 
MAN12120 
MAN12130 
HAN12140 
HAN12150 
HAN12160 
MAN12162 
MAN12164 
'MAN12166 
MAN12168 
MAN121T0 
HAN12172 
HAN121B0 
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c 

C FILL0HING VALUE FAR RPRIHE IS AN ARTIFICIAL SHE USED 
C TR FACILITATE PROGRAMMING. 

C 

2004 RPRIHE * 1.0 
SO TB 2010 

2005 RPRIHE * RPIN+1) 

2010 BR « SETA*R( N+l) 

SUHRAaO. 

SURRA— I. 

S UHRC— V ZERO 
SUMXC-O. 

DO 4000 K-l.N 
TR«(XX-X1(K] l/BR 
IF(KTYPE(K)-1)3100.33Q0,3150 
C 

C EQUATIONS FOR TYPE 0 SOLUTION (LINEAR TYPE) 

C 

3100 PSIXA-ARCOSHITR) 

PSIXC « 0SQRT(TR*TR-1.) 

P$IRC*PS IX A* TRAPS! XC 
PS IRA— 8 ETA* PSIXC 
IFIRPRIHE)3200,3500.3200 
3200 PSIXC— 2.*PSIXC/BETA 
G0 T0 3500 
C 

C EQUATIONS FOR TYPE l SOLUTION (CORNER TYPE) 

C 

3300 TT-U/TR 

R0»T - DSQRT (XX-X IIKl+BR) 

TTP1-TT+I. 

ARC® C lt“TT J/TTPl 

C 

C FIND THE CBHPLETE ELLIPTIC INTEGRALS OF THE FIRST AND SEC0NO KIND 
C 

CALL C0HELLIARG.F, E) 

PSIRC»8ETA/TT*R00T/BR*(E-TT/TTP1*(2.-TTI/2.*F) 

PS IRA— BETA*TR/R00T*ITTP1*E-TT*F) 

I FI RPRIHE (3400 ,3500,3400 
3400 PSIXA-F/R00T 

PSIXC- l.5*PSIRA/BETA 
GO TO 3500 

EQUATIONS F0R TYPE 2 SOLUTION [QUADRATIC TYPE) 

3150 TRBR-IXX— XI C K) ) 

BETA1»BETA*TRBR 

TT-l./TR 

PSIXA-ARCSSH(TR) 

R0OTI - DSQRT(l.-TT*TT) 

PSIRA-8ETA1* (TT*PS IXA-TRAR00T1) 

PSIRC»BETA*BETA1*( 3.*PS IXA+ 1 l.-4.*TT*TT] /( TT*TT I *R00Tl ) /BETA2 
I F(RPRIHE)31 75 *3500*3175 
3175 PS IX A- 2* *TRBR*( PSI XA-R08TI ) 

PSIXC-3. APSIRA/BETA2 
C 

C ADO SOLUTION TO SUN* UNLESS THIS IS THE N-TH ONE. 

C 

3500 IF (K-N) 3600,2100,2100 
3600 SUHRA-SUHRA+ A( K) *PSIRA 
SUMRC-SUHRC+C{ K ) *PS IRC 
I F(RPR I ME >3700*400 0*3700 
3700 SUHXA«SUMXA*A(K)*PSIXA 
SUHXC-SUHXC+CI K ) PPSIXC 
4000 CONTINUE 

2100 IF ( KODER) 2200,4005*2200 

2200 I F ( KTYPE (N) — 1 1 2201 * 8200* 2201 

C WRITE STATEMENT IS FOR DEBUGGING ONLY 
8200 WRIT£(6,8300)N*X(N1)*R(N1)*KTYPE(N1)*PSIXA*PSIRA*PSIXC*PSIRC* 
1SUMXA* SURRA* SUHXCiSUMRC 

8300 FORMAT! / /3XL HN.5X6HX IN+1 ) , 9X6HRI N*1 > ,5X5HKTYPE,4X5HPSIXA , 10X , 

15HPSIRA* 10X5HPSIXC * 10X5HPSIRC/I4, 1P2E15.6*I4*4E15.6/1X7HSUMXA =, 
2E14.6.2X7HSUMRA »,E14.6,2X7HSUHXC -,E14.6, 2X7HSUMRC -,E14.6I 
GO TB 7T>00 

2201 ALFA » OATAN(-VZERB) 

FACTR - 4.0*R1N+1)X(ALFA*RBASE) 

TERM * FACTR *( PS IXC* ( -SUMRC )*PSIRC*SUMXC) 

QA • DCNADX*PSIXA*PSIXC-TERH*(PSIXA*SUNRA+PSIRA*( • -SUMXA ) ) 

QB - -DCNA0X*(PSIXA*PSIRG+PSIRA*PSIXC)+TERM*IPSIXA*I1.0+BETA2) ) 

QC * 0CNADX*PSIRA*PSlRC-TERM*(PSIRA*(1.0+BETA2*SUHXAI-BETA2*PSIXA 
1*5UMR A+BET A2*PSIRA ) 

R0OTSQ - QB*QB-4.0*QA*QC 

GRP - -WEIGHT*RP(N)+(WEIGHT*l.l*(R(N+l)-R(N))/<X(N+ll-X(N> ) 


MAN12190 
MAN12200 
MAN12210 
HAN12220 
MANI2230 
HAN12240 
MAN12250 
HAN12260 
MAN12270 
MAN12280 
MAN12290 
HAN12300 
KAN123 10 
MAN12320 
MAN12330 
HAN12340 
MAN! 2350 
MAN12360 
MAN12370 
MAN123B0 
MAN12390 
MAN12400 
HAN12410 
HAN12420 
MAN12430 
MAN12440 
MAN12450 
HANI2460 
MANI2470 
HAN12480 
KAN12490 
MANL2500 
MAN12510 
.MAN1252C 
MAN12530 
MAN12540 
MAN12550 
HAN12560 
MAN12570 
MAN125B0 
HAN12590 
MAN12600 
HANI2610 
MAN12620 
MAN12630 
MAN12640 
MAN12650 
MAN12660 
HAN12670 
HAN12680 
MAN12690 
KAN12700 
MAN12710 
HAN12720 
MAN12730 
HAN12740 
MAN12750 
HAN12760 
HAN12770 
HAN12780 
MAN12790 
MAN12BOO 
MAN12810 
HAN12B20 
HAN12B30 
HANI2S40 
HAN12841 
HANI2B42 
MAN12643 
HAN12844 
HAN12845 
MAN12B46 
HAN12847 
HAN12846 
MAN12S50 
HAN12S60 
MAN12870 
HANI2680 
HAN12890 
HAN12900 
HAN12910 
MAN12920 
MAN12930 
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NOT REPRODUCIBT 



CALL LNCNTI4.KKKK) MAN12S35 

WRITE (6, 600) N,X(N1),R(N1),KTVPE(N1>,P$IXA,PS1RA,PSIXC,PSIRC,K0OER,HANI2949 
1ITER,SUMXA,SUHRA,SUMXC,SUMRC,QA,QB,QC,GRP MAN12945 

600 FORMAT ( /3X, 1 KN, 6X6HX (N+l ) ■ 9X6 HR [ N+l ) , 5X5HKTYPE,7X5HPS1 XAi 13X5HPSIRMAN12950 
1A,13X5HPSIXC,13X5HPSIRC,14X5HK0DER,1X4HITER/I4,1X,1P2D15.6,I4,2X, MAM 2955 
24018.10,6X,2(2X(4)/5X7HSUHXA -, 018. 10, 2X7HSUMRA = , D1 8. 10 ,2X7HSUMXCM»N12960 


3 

*,016. 10. 2X7HSUKRC =,D10. 10/ 5X14HQUA0. C0EFS. = , 3 ( D18. 10, IX ) , 5X, 

HAN12565 

45HGRP =,018. 10) 

MAN12970 


i F(K0OEK-3 ) 6 010 » 6400 i o400 

MAN12975 

6010 

I F(R00TSQ16O 15, 6050,6050 

HAN12980 

6015 

IF(KD1R)603<J, 6020, 6040 

MAN12585 

6020 

00 6025 J*lt 2 

MAM299C 


IC0DE ( J ) = 1 

HAN 12995 

6^25 

RAO I ( J ) = R ( N+l ) 

MAM3COO 


G0 T0 6200 

MA M3C95 

6 330 

I C0OE( 2 ) = 1 

MAM 3 r 1C 


RADI ( 2 ) = R( N+l ) 

ham3~15 


ITER = ITER+1 

HAN1 3020 


IF II TER- <LIM*2 ) ) 6300,6300, 120 

MAN13C25 

6i*40 

IC0DEI1) = 1 

MAM3030 


RADI‘(1) = R { N+l) 

HAM3C35 


ITER = ITER+1 

.MAN13C40 


IFIITER-lLi 1*2) 16L0J, 6200, 120 

HAN13C45 

6 *‘50 

R00T=DSORT(R0PTSQ) 

MAN13C50 


RPP = ( -Q8+R00T } / ( 2 • 0*QA ) 

MAN13C55- 


RPH = ( -Q8-R 00T > / ( 2,0*0A ) 

MAN13C60 


ENWP = RPP— GRP 

HAN13065 


ENWM = R PH— GRP 

HAN13C70 


I F(KDIR) 6080 ,6060,6070 

MAN13075 

6060 

00 6065 J-l, 2 

HAN13080 


QAC0(J> = OA 

HAN13C85 


EP(J) = ENWP 

MAN13C90 


ELI J) = FNWM 

HAN13095 

6065 

RADIIJ) = RtN+l) 

HAN13I0C 


CALL LNCNT 1 2 ,KKKK ) 

MAN131P5 


WRITE! 6, 8600 JKSUB, RPP, RPH, RADI ( 1 ) ,QAC0 11) t EP 11) , EL (1) , I C0DE11) , 

MAN13110 

1K0OER, ITER 

MAN13115 


60 T0 o30O 

HAN13120 

6070 

KSUB = 1 

MAN1312S 


60 T0 6 ">8 5 

MAN13130 

6f 80 

KSUB = 2 

HAN13135 

6085 

IF(IC0DEIKSUB))6O9O, 6090, 6110 

HAN13140 

6}90 

IF [QA*QAC0 (KSUB) 16110,6110,6095 

MAN13145 

6095 

I F(6NWP*EP( KSUB) 16150,6100,6100 

MAN13150 

6100 

1F(ENWM*EL(KSUB))6155, 6110,6110 

MAN13155 

6110 

EP (KSUB) * ENWP 

MAN13160 


EL(KSUB) = ENWM 

HAN13165 


QAC0 ( KSUB ) = OA 

MAN13170 


RADI ( KSUB) = R(N+1) 

HAN13175 


K0OER = 2 

MAN13180 


ITER = ITER+1 

HAN13185 


CALL LNCNT (2 ,KKKK) 

HAN13190 


WRITE (6, 8600 ) KSUB , RPP , RPM, RAO I ( KSUB ) ,OAC0( KSUB ), EP ( KSUB ), EL ( KSUB ) 

, HAN13195 

1IC0DE(KSUB),K0OERTITER 

HAN13200 

6600 

FORMAT ( 3X4HKSU8 »7X3HRPP, 15X3HRPM , 12X10HRADI ( KSUB ) , 8X1OHQAC0 ( KSUB ) 

,MAN13205 


L3X8HEP ( KSUB) , 10XSHEL ( KSUB) , 6X 5HIC0DE, 1X5HK0DER, 1X4HI TER/3X I 3 , IX , 

MAM 32 10 

21P6D18.10, 14,2(2X141) 

MAN1 32 15 


I CODE ( KSUB ) = 0 

HAN13220 


IF(ITER-{LIM*2> ) 6130, 6130, 120 

MAN13225 

6130 

G0 T 0 (6200, 6300), KSUB 

MAN13230 

6150 

IR00T = +1 

MAN13235 


El *= EP ( KSUR ) 

HAN1324G 


F2 = ENWP 

HAN13245 


G0 T 0 60 

MAN1325C 

6155 

IR00T = -1 

MAN13255 


El = EL (KSUB) 

MAN13260 


E2 = ENWrt 

HA N1 3265 

ol60 

R 1 = RAO I (KSUB) 

MAN13270 


R2 = R ( N+l ) 

MAN13260 


ITER = ITER+i 

MAN13290 


GO TS 6500 

HAN13300 

o?0C 

R ( N+l ) = RAD I ( 2 )~S IG ( 2) 

HAN1331C 


KDIR = -1 

MAM3320 


G0 T 0 2 *10 

HANi 3330 

o 000 

R ( N+l ) = RADII 1)+SIG( 1) 

HAN13340 


KDIR = +1 

HAN13350 


00 T0 2 10 

H A N 13360 

6400 

R00T = OSQRT ( R00TSO ) 

MAN13370 


IF ( IR00T >6410,6420*6420 

MAN1338C 

o4lO 

RPM = (-QB-R00TI/( 2,C*0A) 

HAM339C 

C 

DURING THIS P0RTI0N OF THE PROGRAM ENWP HILL BE USED TO SIGNIFY 

MAM3400 

C 

EITHER ENWP 0R ENWH. 

MAN13A10 
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FNWP * RPH-GRP 
RPIN+1I » RPH 
G0 T0 6450 

6420 RPP « l-QB+R00TI/!2.O*OA) 

ENWP * RPP-GRP 
RPIN+l) * RPP 

6450 I F (DABS (ENWP-E2 1-1. 0-10)7000, 7000, 6460 
6460 I F ( ENWP*G2 ) 64B0 , 70 00 , 6470 
6470 IF(ENWP*El)6490, 7000, 6460 


6480 

El - 

£2 


R1 - 

R2 

64<30 

E2 - 

ENWP 


R2 * 

RNEW 

6500 

RNEW 

* R2-E2/UE2-E11/1R2 


K0DER. « K0DER+1 
CALL LNCST ( 2 , KKKK } 

WRITE! 6, 8700) IR00T , R2,RP IN+1 > ,R 1, El, E2, RNEW, K0DER, ITER 
6700 FORHAT(3X5HIR00T,5X6HR(N+U , 12X7HRP IN-t-1 ) , 1 1X2HRI , 16X2HE 1 , 16X2HE2 , 
116X4HRNEW, 14X5HK0DER.1X4HITER/3X 13, IX, IP 60 18,10, 4X, 2(2X14) 1 
RtN+1) = RNEW 

I F1K0DER-! LI M*2) 12010,2010, 120 
7000 XI(N+l)=IX(N+l)-BETA*R(N+t)>4EPS 
IF(RP(N+1)-5L0PE 12500, 120, 120 
2500 RPRIME = RPIN+l) 

C 

C COMPUTE A(NI AND CiN) 

C 

4005 IF (RPRIME) 4100,4200,4100 
4100 SUHR A-SUHRA— RPR IME4SUHXA 
PS IRA- PS IRA-RPR IME*PSIXA 
SUMRC=SUMRC-RPRIHE*SUMXC 
PS I RC= PS I RC- RPR I HE « PS I XC 
4200 A(N1— SUMRA/PSIRA 
C(N>— SUMRC/PSIRC 
I FIK0DER 14207, 5000,4207 
4207 CALL LNCNT ( 1 , KKKK 1 

HR ITE ( 6, 8500 )N,X!N+1),R( N+l ),RP!N+1),KTYPE!N),XIIN+1),A(N) ,C(N) 
IFIXKN+LJ-XHN)) 120,5000,5000 
5000 CONTINUE 
C 

C THE FOLLOWING ARE ARTIFICIAL VALUES, USED T0 INDICATE THE END 0F 
C THE SEQUENCE. 

C 

A1NLAST+1 1 = . 33333333E+33 

C(NLAST+1)-* 33333333E+33 

EPSN=1.-EPS 

VZ0 - -V2ER0*UPSTRM 

DC0E - 0.0 

WRITE! 7, 109) EM, UPS TRM, VZ0.NLAST, EPSN.OC0E, WEIGHT, RBASE 
WRITE! 7, 104) (I, XU ),R( I) ,RP ( I l.KTYPE! I ) ,XI( I } , A ( 1 1 ,C ( 1 ) , ! = 1,NN! 
104 FORMAT [15, 3E 25*8/15, 3E25.8) 

G0 TO 349 
C 

C PREVIOUSLY COMPUTED COEFFICIENTS ARE READ IN HERE. 

C 

352 READ ( 5 , 104 )(I,X(I),R!I), RP [ I ),KTYPEII),XI(I) , A 1 I) ,C( I) ,1=1, NN) 

C 

C C0HPUTE THE STARTING TIMES F0R THE SOURCES. - 
C 

349 00 350 N=2,NN 

350 T ( N) =X 1 1 N) /UPSTRH 
T(1)=0.-. 

C 

C THE FOLLOWING THREE STATEMENTS INVOLVE ONLY ARTIFICIAL VALUES. 

C 

X ( NLAST+2) =1 00. *X ! NLAST+l) 

RP!NLAST+2)=RPINLAST+1) 

R ( NLAST+ 2 )-RINLAST+l)+RP( NLAST+l )*( X (NLAST+2 )-X I NLAST+l )) 

CALL LNCNTf 2 ,KKKK ) 

WRITE!6, 102) 

DO 105 1=1, NN 
CALL LNCNT !1 .KKKK) 

I F (KKKK ) 105. 106,105 
106 CALL LNCNT 12 ,KKKK ) 

WRITE! 6, 102) 

105 WRITE! 6, 103) I ,XI 1 1 ,R ( 1 1 ,RP ! I ) ,KTYPE( I),XI(U f T!l),A((),C(I) 

103 FORM AT (15, IP 3E15. 7, 13, IX, 4E 15.7) 

102 FORMAT! 6H NUMBR ,7 X , 1HX, I4X , 1HR, 12X , 5HSL0PE , 5X.4HTYPE, 6X , 2HXI , 
114X1HT , 14X1HA, 14X1HC/1H ) 

RETURN 

END 


MAN13420 
MAN13430 
MAN13440 
MAN13450 
MAN13460 
HAN13470 
MANI3480 
MAN13490 
MAN13500 
MAN13502 
MAN13504 
MAN13506 
MAN13508 
HAN13510 
HAN13515 
MAN13520 
MAN13525 
HAN13530 
MAN13535 
HAN13540 
HAN13545 
MAN13550 
MAN13560 
MAN13570 
MAN1358C 
HAN13590 
MAN13600 
MAN13610 
MAN13620 
HAN13630 
MAN13640 
MAN13650 
MAN13660 
MAN13670 
HAM3680 
MAM3690 
MAN13700 
MAN1371G 
MAN13720 
MAN13730 
MAN13740 
MANL375G 
MAN1376C 
MAN13770 
MAN13760 
MAN13790 
HSN13800 
HAM3610 
MAM 3820 
MAN1383C 
MAN13S40 
MAN13350 
MAN13660 
MAN13S70 
HAN13S80 
MAN13890 
HAN13900 
MAN1391C 
MAN13920 
MAN13930 
MAN1394 r 
MAN13950 
HAM3S60 
HAN13970 
MAN1398C 
HAN13S90 
HAN14COO 
HAN14C10 
MAN14C20 
HAN14C30 
MAM4C40 
HAN14050 
MAN14C60 
HAN14C70 
MAM4C80 
MAN14090 
HAN14100 
MAN14110 
MAN14120 
MAN14130 
MAN14140 
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SUBROUTINE MAINZ HANZ1COO 

COMPUTATION BF THE INTEGRAND APPEARING IN THE EXPRESSION KANZ1010 

FOR THE GENERALIZED FBRCE CBEFFICIENT. HAN2102D 

DOUBLE- PRECISION EH, EM2 , UPSTRH, VZkRB .TIME, EPS, RBASE, BETA , BET A2 , HANZ1C30 

ICFt 1B1,XU50),R(150I,RP< 150) tXIUSO 1 ,'T (150 1 , AU5Q 1 ,C f 150 1 » MAN21C40 

2UASf3OQ),VAS{30Cl 'HAN210S0 

3,HR0U3,300),CNA,CMA - HAN21Q60 

4,ST8RTF( 9001 , STB RCNT ROOT , SYBRCH ( 900) ,FST6DY(21 ,XTEST(20) ,RTEST (201 PAN21070 
EQUIVALENCE ( WRCHl, 1 1 ,ST0R IF T3 1 1 , l WHO IT Z, 11 ,ST0RCN(31), . HAN21C80 

I (NREU3,U,ST0aCH(3n . PANZ1C90 

DOUBLE PRECISION FACTA, FACTB.FACTC, FACTO, XF, OX, XL.XFF, TF ,DT, TL ,RF, KAN21IOO 
1UA,VA,UC,VC,UCT,VCT,DPHITU,VQINT»CNX»CFX . , ' KAN21110 

CBHHBN EM, UPSTRF, VZER0, EH2, X, R, RP, XI, T,A,C, BET A, 8ETA2, TIHE.EPS, CF.HAN2U20 


1CNA,CHA,WRD1, 

2R8ASE.UAS »VAS,KTYPE (1501 ,NLAST 
ITAPE * 0 DEMOTES PRINTED 0UTPUT ONLY. I TAPE NOT EQUAL TB 2ES0 


HAN2U30 
MAN21140 
HAN2U50 
FAN21I52 

CREATES A BINARY TAPE (8) 0F THE LOCAL NORMAL FBRCE AND MAN2U54 


THE PITCHING H0HENT (CNA AND CPA I . 

COMPUTE INTEGRAND AT XF, XF+OX, ...» XL ANO AT TF, TF+CT, 

WHERE TL = TF+OTtNT-1). 

KOBE = 0 INDICATES THIS IS THE LAST SET BF DATA PER NAIN2. IF 


MAN21156 
KAN21I58 
TL PAH2I160 
MAN21162 
PAN2I16*. 
MAN21166 

KBOE'O AND ITAPE IS NBT EQUAL TB ZERO, AN EOF IS WRITTEN MAN2116B 


KBOE 

KBDE 


= 1 
=-l 


BN THE BINARY TAPE 8. 

IF A NEW SET BF X AND T YALUES IS TB BE READ IN. 
SIGNIFIES A RETURN TB MAIN PROGRAM (TAPRES 0R C0MTAR1. 


KC0OET =. i IF ANOTHER SET 0F T VALUES IS T0 BE REID IN USING THE 
. PREVIOUS SET 0F XF , XFFOX, XL VALLES. 

KC0DET « 0 SIGNIFIES THE LAST SET 0F T VALUES FOR A PARTICULAR X. 

LI = t TB GET DEBUGGING OUTPUT FR0K THE SUBR0UTINE UTANVT. * 

IDB0GY (A FORMAT 1 PROVIDES IDENTIFICATION 0F A SPECIFIC BINARY 
TAPE FOR A VEHICLE C0NFIGURATI0N. 

IKAX = 40 
NOIH = 900 
NTC0UN * 0 
FACTA=2,/(R8ASE**2) 

FACTB * 4./RBASE/OATANt-VZER0} 

FACT C^FACTAZRBA S E*,5 
FACTC=FACTB/RBASE».5 

400 REAC (5,5000) ITAPE, IDB8DY ,XF ,DX,XL,K0OE , KCOOET.TF .CT.NT.Ll 
5000 FBRHATt I5,A4, IX ,3F 10.0,2I5,ZF10.0,2I 5) 

IF! ITAPE)3,4IO,2 
3 CONTINUE 
ITAPE « I 
OX = 1.0 


410 


XL => 0.0 
XFF = XF 
NTC0UN » 
K0NT = l 
NDIHAX 


NTC0UN + NT 


(NTCBUN + 11*3 
IF (NDIH-NCIHAXI5050.T.7 
5050 CALL ERR0R 
T CALL LNCNTI “2 , KKKK 1 
WRITE 16,2015 

201 FORMAT! 4X LHX, 9X1HR , 9X1HT,9X2HUA ,9X2HVA , 9X2HUC ,9X2HVC, 6X9HI 1/U1PHI MAN21570' 
lT,4X5HaCNDX,4XlCHCCNAC(X/0l ,3X5KOCMOX,4 XIOHDCPin I ,/ni/ 1H I ’ HAN21580 


HAN21I70 
PAN2U7 2 
PAN21175 
PAN2U76 
HAN2U78 
HAN2H80 
HAN21190 
HAN212Q0 
HAN21210 
HAN21220 
PAN2X23G 
FAN21240 
HAN21250 
PAN2I260 
KAN212TO 
NANZ1280 
MAN21300 
FAN21310 
PAN2132Q 
PAN21330 
PAN21340 
HAN2I35D 
HAN21360 
MAN21370 
HAN213BO 
PAN2139U 
PAN21400 
PANZI410 
MAN214Z0 
PAN21440 
PANZ1A50 
KAN21460 
PANZ1A70 
PAN21480 
HAN21SS0 
KAN21560 


401 IND£X=2 
500 IF(X{ INDEX 5— XF 1550,530,6 GO 
550 INC£X=INDEX+i 
GO TO '500 

600 RF"R( IN0EX1-RP! INDEX! *! X ! JNDEXi-XF) 


RF IS THE 60DY RADIUS CORRESPONDING TO XF 


CALL UANOVIXFtRP, UA , VA,UC , VC) 

TIHE-TF 

CALL UTANVT ( XF,RF,Li,UCT,VC I»DPHI TU) 
V0INT=-VA«(VZ£R£+VCT)+UCT*(BETA2*UA“1.C)+DPHITU 
!F(XF“UPSTRH»TF.l 120,120, 110 
110 VGINT-VO INT+VA#YZ£R0 
IPO VOINT=RF«VflINT 


HANZ1590' 

M4N2160O 

M AN 2 1 6 1 0 

K AN 2 1 6 2 0 

KAN 2 1630 

PAN21640 

PAN21650 

PAN2166U 

HAN21670 

KAN21680 

KAN21690 

KAN21700 

MAN2171C 

H4N21720 

PAN2L730 
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CNX»FACTA»VOINT 
CNA=FACTB»VOINT 
CHX=FACTC»VOINT«XF 
CHA=FACTD*VOINT«XF 
CALL LNCNTtl.KKKKJ 
IF(KKKK)21C,220,210 
220 CALL LNCNTI2.KKKKI 
WRITE(6,20ll 

2 L0 WRITEI6, 108)XF»RF,TF,UA, VA. UCT, VCT,DPH I TU .CNX.CN A ,CHX, CHA 
108 E0RHAT(FlO.4,FlC.5,FlO.t>,lP6£ll.4,OPFll.7,lP2Ell.4) ' 

IFt iTAPE-mooo,Aaoo. 1000 
A 000 JST0R * K0NT+NTC0UN-NT 
JST0R = J5T0R»3 
ST0RCN(JST0RI * CNA 
ST0RCHI JST0R) a CHA 
ST0RTFCJST0R1 = TF 
1000 IF( XF— XL )7G0, 701 rTOl 
700 XF=XF+DX 
G0 T 0 500 

701 IF(K0NT-NT)7O2, 2000,2000 

702 TF = TF+DT 
K0NT = K0NT 4- 1 
XF a XFF 

G0 T0 401 

2000 IFIKC0D£T)7OOO, 2003, 7000 
2003 IFt ITAPE-U3000, 2005. 3000 
7000 REAOI 5,8000 IKC0CET,TF,DT,NT,L1 
8000 F0RHAT(45X, 15, 2H0. 0,215) 

G0 T 2 A 10 

2005 NT 3 = NTC0UN»3 
FSTECVll) = ST0RCN(NT3) 

FSTECYt 2) = ST0RCNINT3) 

KNT=1 

NR = NLAST+1 
00 2C07 1=1, NR 

1F(KTYPE(I)-1) 2C 07, 2006. 2007 

2 006 XTEST1KNT1 = Xt 11 
RTESTtKNT) = R C 1 1 
KNT = KNT-, l 

2007 C0NTINUE 
NTES7 = KNT 

XTEST(NTEST) = XINLAST+l) 

RTEST (NTEST ) = RtNLAST+U 
KK=5 

C WRITE FIRST REC0RO 3N BINARY TAPE F0H L 0CAL FORCES 

2010 WRIT£(8)irAPE,ICB0DY,EH, UPSTRM. XF ,KK ,NTC0UN . (FSTEt Y( I ) >1 = 1.2), 
IN TEST . tXTESTt I T , RTS ST II ) ,1 = 1, NTEST) 

NTC0UN = NTC0UN4 1 
NT3 = NTC0UN«3 

C ARTIFICIAL TIME VALUE - INDICATES END 0F THIS BL0CK 0F VALUES 

C CORRESPONDING T0 A SPECIFIC X-VALUfc. 

STORTFt NTS J = ICOC. 

D0 2050 L = 1,NTC0UN, IHAX 
2050 CALL B I NT API l.WROK LtL) ) 

NTC0UN = 0 

3000 IFIK0DE)9OO,3OIC,4OO 
3010 IFt ITAPE-11900, 2020, 900 

C NEGATIVE ITAPE IN FIRST RECORO INDICATES EOF 0N BINARY TAPE, 


MAN21740 

HAN21750 

NAN21760 

NAN21770 

KAN21780 

HAN21790 

HAN21800 

MAN21810 

HAN21820 

HAN21830 

HAN21840 

MAN21650 

HAN21860' 

NAN21870 

HAN21S80 

HAN21890 

HAN21900 

HAN 2 1910 

HAN21920 

HAN21930 

HAN219AO 

HAN21950 

HAN21560 

HAN21970 

HAN21980 

HAN21990 

HAN21992 

MAN21994 

KAN21996 

HAN22C00 

FANZ2C1U 

HAN2ZG20 

HAN22C30 

HAN22C40 

HAN22C50 

HAN22C60 

HAN22070 

HAN22C80 

HAN22C90 

HAN22I00 

HAN22110 

HAN22120 

HAN22130 

H AN22140 

HAN22150 

KAN22160 

KANZZ170 

HAN 2 21 80 
HAN22190 
HAN22200 
HAN22210 
HAN22220 
HAN22230 
MAN22Z40 
HAN22250 
HAN22260 
PAN2ZZ70 
HAN22280 


3020 ITAPE = -ITAPE MAN22290 

WRITEI81 ITAPE, ICB0OY.EH, UPSTRM, XF.KK.NTCBUN, (FSTECYt I) ,1=1,2), HAN22300 

INTEST, tXTESTt I) .RTESTU ) ,I = i,NT6ST) MAN22310 

END FILE 3 HAN2Z3ZQ 

REWIND 8 NAN22330 

CALL LNCNT 1 7,KKKK ) KAN22332 

WRI TE ( 6, 99CO ) KAN22334 

9900 F0RHATt//5X,95t 1H*)// 10X5 OH THE END 0F FILE HAS BEEN WRITTEN 0N BINKAN22236 

1 ARY TAPE 8 *//5X , 95 ( 1K= ) ) HAN22336 


900 RETURN 


P AN2234Q 


END . 


PAN22350 
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SUBROUTINE MAIN2 MAN31GOO 

c MAN31C10 

C CONTROLS THE INTEGRATION ROUTINE HAN31C20 

C MAN31C30 

DOUBLE .PRECISION EM, EH2, UPSTRM, VZER0, TIME, EPS, RBASE, BETA, BET A2» MAN31C40 

1CFI 18 ),X( 1501 ,R( 150) »RPI 150), XI ( ISO > ,T{ 150) .A ( ISO ) ,C 1 1 50 I • MAN31C50 

ZUASI2001.VASI30C) MAN31C60 

3, WRC 1(3,300), CNA , CMA PAN31C70 

4,ST0RTF!9OO)»ST2ACN!9OO> ,ST0RCH(900) .FSTEDVI2) ,XTEST 120) , RTEST I 20) MAN31C80 
EQUIVALENCE ( WRC III , 1 ) . STORTF 13 ) ) , ( WRO 1 1 2, 1 ) ,ST0RCN< 3 ) ) , HAN31C90 

1 <WRC1(3,1I,ST0RCM(3)) MAN31100 

DOUBLE PRECISION ALFA ,X2 ,RE SET, TF, OT ,TL . XXX , RRR, UA , VA , UC , VC ,XSTF , HAN3 11 10 
1XSTL.C0N, CN.CH.CQl , CQZ,CQ3,CQ4,CP,XGUSI,CFS!L81,XF pTSAVE PAN31120 

COMMON EH .UPSTRM , V2ER0* EH2,X,R,RP,XI,T,A,C,B£IA, B£IA2,TIME,EPS,CF,PAN31130 
ICNA.CMA.WRCl, KAN31140 

2RBASE,UAS,VAS,KTYPE( 150 I ,NLAST KAN31150 

MAN31160 
MAN31170 


ITAPE = 0 INDICATES PRINTED OUTPUT ONLY. ITAPE NOT EQUAL TO ZERO KAN31172 
CREATES A BINARY TAPE til) OF THE TOTAL NORMAL FORCE ANDMAN31174 
THE PITCHING MOMENT ICNA AND CPA). HAN31176 

MAN31I78 

KCOCE = 0 INDICATES THE LAST SET OF DATA F0R NAIN3. IF K0DE=0 ANDHAN3I1B0 

ITAPE IS NOT EQUAL TO ZERO, AN EOF IS WRITTEN BN THE HAN3U82 

BIN AR Y TAPE 11. MAN31184 

KCOBE = 1 IF THE NEXT DATA CARD IS FOR MAIN3. PAN31186 

KC0OE «- 1 SIGNIFIES A RETURN TO MAIN PROGRAM ITAPFES OR COMTAR). HAN311B6 

MAN31190 

IOBOCY (A FORMAT) PROVIDES IDENTIFICATION OF A SPECIFIC BINARY MAN31200 
TAPE FOR A VEHICLE CONFIGURATION. MAN31210 

MAN31220 

MORET = I IF NEXT DATA CARD CONTAINS ADDITIONAL TIME VALUES. MAN31222 

MORET = 0 DENOTES THE LAST SET OF TIHE VALUES. MAN3I224 

PAN3I226 

USE PBRET-0 AND ITAPE NOT EQUAL TO ZERO TO OBTAIN CNA AND CMA FOR PAN31228 
BOTH KK*3 AND KK = 5 ON TAPE WITH ONLY ONE DATA CARD. (KCODE MUST eEMAN3i'230 
EQUAL TO ZERO TO WRITE AN EOF ON THE BINARY TAPE.) PAN31232 

MAN31234 

PAN3I236 


I MAX = 40 
NDIM = 900 
ALFA = D AT AN {—V ZERO ) 
NTCOUN = 0 


MAN31240 
PAN3I250 
HAH31260 
HAN31270 
MAN31280 
MAN31290 
HAN31300 
MANS 13 10 
HANS 1320 
HAN31230 


RESET IS 1. TO INITIALIZE AND RESTART THE INTEGRAI IONS AT X=0. MAN31290 
THE TIMES USED ARE TF, TF+DT, .... TL WHERE TL » TF+OTINT-ll. MAN31200 
KK IS 1 OR 2 FOR I. I., 3 OR 4 FOR P.P., AND 5 OR i FOR P.W.L.G. MAN3I210 
A UNIT STEP ONLY IS CONSIDERED. HAN3132D 
L2 IS I IF PRINT OUT OF INTEGRAND AT EACH STEP IS DESIRED. HAN31230 
L3 IS 1 IF PRINT OUT OF SPECIAL VALUES OF X FROM FOINTS IS DES IREDMAN31340 

HANS 12 50 
PAN312 60 

READ! 5.5000 ITAF E , I080DY , TF ,D T, NT.KK . KCODE .MORET, 12, L3 HAN312T0 
FORMAT! 15, A4, IX, 2F 10.C, 6 l 5) HAN313B0 
ISHORT » 0 MAN31290 
TSAVE=TF HAN3L295 
IFI 1 TAPE I 5003, 5C04, 5003 MAN31400 
CONTINUE MAN3I410 
ITAPE = 2 MAN31420 
IF! MORET ) 5004, 5C02, 5004 M.AN3I430 
KK - 3 HAN31^^0 
ISHORT = 1 HAN31450 
CALL LNCNT 1— 2.KKKK) MAN31460 
WRITE ( 6, I0C1 ) MAN31470 
FORMAT! 2H K ,3X4FTIKE, 6X4HXSTF , 6X4KXSTL .5X5HXGUST ,7 X2HX2, I0X3HCNA, MAN31480 


1 12X3FCHA,8X11HCENT . PRES./1H ) 

X2 = X(NLASTY-l) 

RESET = 1.0 
TIME = TF 

NTCOUN = NTCOUN + NT 
KONT = 1 

ND1HAX = (NTCOUN + l ) *3 
. IFtNCIM - NDIMAX1S050, 5100, 5100 
0 CALL ERROR 
0 IF! RESET H» 10, 1 

FROM HERE TO 10 IS INITIALIZATION REQUIRED IF R£SET=1. 

00 2 1=1,18 
CFSI I )=0.0 
NN=2«NLAST«1 
N=1 

IF!HeO(N,2))7,8,7 


MAN31490 
HAN31500 
MAN31510 
MAN31520 
MAN31530 
MAN31540 
MAN31E50 
MAN31560 
MANS 1570 
MAN31560 
MAN31590 
MAN31600 
MAN31610 
HAN31620 
MAN31630 
MAN31E35 
MAN31640 
HAN3U50 


69 




7 

K*lN4ll/2 

MAN31660 



XXX=X 1 K 1 

FAN3 1670 



RRR=RIK) 

MAN316BO 



GB Te 9 

HAN31690 


6 

K=N/2 

KAN3 1700 



XXX= [ X( K )+X I K+l.J )»0.5 

KAN31710 



R8R=<R(K|4R<K4ll 1*0.5 

HAN31720 


9 

CALL UAN0V(XXX,RRR,UA,VA,UC,VC> 

MAN3 1730 



UASIK) = UA 

FAN3 1740 



VAS(M=VA 

HAN31750 



N=N+ 1 

MAN31760 



IF(N-NN)5,5,14 

MAN 3 1770 


ID 

IF(KK-211l, 11,12 

FAN31780 

c 



HAN31790 

c 


INTEGRAL HAS REACHED STEADY STATE VALUE, 0R 

HAN31600 

c 


HAS NO TRANSIENT P0KTI0N. 

MAN3 Ifi 10 

c 



HAN31820 


11 

□0 12 1=1,18 

RAN'3 1830 


12 

CF{I)=CFS(I) 

KAN31840 



G0 T0 35 

MAN318S0 


14 

XSTF=G.O 

MAN31855 



XSTL=0.0 

MAN31660 



IF! KK-2 >16,16, 13 

PAN31870 


13 

XZ=X (NLAST41) 

HAN3 1880 



IF(T IMEI 11, 11, 15 

MAN31B90 


15 

IFtXSTL-X [NLAST4im7.il, 11 

MAN31900 

c 



MAN31910 

c 


C0HPLTE THE ENTIRE STEAOY STATE INTEGRAND. 

HAN31920 


16 

XSTL=XINLAST4l) 

MAN31930 



CALL INTGRL(XSTF,XSTL,1,L2,L3) 

MAN3 1940 



00 AC J= l , 1 8 

HAN3 1950 


40 

CFS ( J )=CF ( J 1 

HAN 3 1960 



G0 T 2 35 

HAN31970 


17 

XSTF=XSTL 

MAN319B0 



I F I K K— 4 118,18,22 

MAN31990 

c 



KAN32GOO 

c 


FIND THE UPPER LIMIT F0R THE PURE PENETRATION CASE. . 

MAN32Q10 

c 



HAN32C20 


id 

XSTL=TIM£*UPSTRF 

MAN32030 



IF(XSTL-X(NLAST41) ) 20,19, L9 

MAN32C40 


19 

XSTL=X(NLAST+l 1 

MAN32C50 

c 



MAN32C60 

c 


COMPUTE THE ADDITIONAL STEADY STATE CONTRIBUTION. 

MAN32C70 

c 



FAN32C80 


20 

CALL INTGRL(XSTF,XSTL,1,L2,L3) 

HAN32C90 



D0 21 1=1,13 

MAN32100 


21 

CFSC IJ=CFS(I)4CFm 

FAN32110 



G0 T £ 30 

MAN32115 

c 



MAN32120 

c 


FIND THE LIMITS OF THE INTEGRATIONS FOR THE 'LIFT GROWTH CASE. 

MAN32130 

c 



KAN32140 


22 

CALL P0INTSI l,XSTL,X2,K0OE) 

MAN32150 



IF(KeDE)24,25,2C 

NAN32160 


24 

CALL ERROR 

HAN32170 


25 

XSTL=XINLAST+1I 

FAN32175 



G0 T 0 20 

KAN32180 


30 

IF(KK-4)lt, 11,31 

MAN32190 

c 



MAN32200 

c 


C0HPLTE THE TRANSIENT PORTION OF THE INTEGRAL. 

MAN32205 

c 



F AN 3 2 2 0 6 


31 

IFtXSTL-XiNLAST4lM 33, 11,11 

H AN32210 


33 

CALL INTGRL!XSTL,X2,0,L2,L3) 

H AN32220 



GO 32 1=1, IB 

HAN32230 


32 

CF( I >=CF( I>+CFSt I) 

HAN32240 

c 



KAN32250 

c 


EACH INTEGRAL IS REPRESENTED BY THREE PARTS, CORRESPONDING T0 

HAN32255 

c 


I. THE CONTRIBUTION OF THE LINEARIZED PRESSURE COEFFICIENT 

KAN32260 

c 


2. OUACRATIC TERMS INVOLVING RADIAL DERIVATIVES 

KAN32262 

c 


3. QUADRATIC TERMS INVOLVING AXIAL DERIVATIVES 

HAN32264 

c 


HERE THEY ARE COMBINED AND MULTIPLIED 8Y THE SUITABLE CONSTANT 

TO HAN32270 

c 


OBTAIN THE STANDARD F0RMS FOR THE COEFFICIENT. 

MAN32280 

c 



FAN32290 

35 

C0N=2.O/(R8ASE»RBASE1 

HAN32300 



CN=C0N»(CF(1)4CF(ZI4BETA2*CF(3) > 

MAN32310 



CM=C2N/RBA5E* ICFI4I4CFI5 J+BETA2*CF 16) 1 • .5 

MAN32320 



CQ1=C0NMCFI7)+CF(8|4BETA2»CFI9I) 

MAN32330 



CQ2=C0N* ( CFI lO)4CF(Ut48ETA2»CF(121 J 

MAN32340 



CQ3=C0N»(CF< 13)4CF(14|48ETA2*CF 115) ) 

MAN32350 



CQ4=C0N»ICF( 16 ) +CF( 17 )4BETA2*CF 118) ) 

HAN32360 



CNA=CN/ALFA 

KAN32370 



CHA=CH/ALFA 

MAN32380 



IF(CM37, 36,37 

MAN32390 
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36 CP a 0.0 
GO TO 30 

37 CP - CM/CN 

38 XGUST » UPSTRMOF 
CALL LNCNTll.KKKK) 

1FIKKKK) 1010,1020,1010 

1020 CALL LNCNT(2,KKKK) 

WRITE I 6, I0C1J 

1010 WRITE! 6, 10021KK, TF , XSTF , XSTL, XGUST, X2,CNA,CMA, CP 
1002 FORMAT II2»FIQ.6,4F 10.4, 1P2E15 .7,QPF 10. A ) 

3000 IFIITAPE-213010, 3005, 3010 
3 005 JSTBR - KBNT * NTCBUN - NT 
JSTBR * JSTBR* 3 
STSRTFI JSTBR) - TF 
STBRCNI JSTBR) * CNA 
STBRCP! JSTBR) a CHA 
3010 IF! K0 NT— NT >300, A 00 ,600 
300 TF » TF + CT 


MAN32400 
KAN32410 
HAN32420 
MAN32430 
HAN32440 
MAN32450 
MAN32455 
N AN32460 
MAN32470 
MAN32480 
MAN32490 
MAN32500 
HAN32510 
M AN32520 
KAN3253Q 
HAN32540 
HAN3255Q 
MAN3256Q 


K0NT = KBNT + l 
TIME => TF 
GB TB 10 

A 00 IFINORET1410, 3050, RIO 
4 10 READ I5,4Q9)TF,OT,NT,M0RET,L2,L3 
4 09 F0RHATI 10X, 2F10. 0 , 1 5, 10X ,31 5 > 

TIME = TF 
KBNT = 1 

NTC2UN = NTCBUN + NT 
NOIHAX = INTC0UN + L ) *3 
IF( NC IM-NDIMAX >5050,10, 10 
3050 IF ( ITAPE-2)4050,3C6U,4050 
3060 IFIKK-S13065, 3070, 3070 
3065 NT3 a NTC0UN»3 

FSTECYI I ) = STBRCNINT3) 

FSTECY I 2 ) » ST0RCKINT3) 

KNT=1 

NR * NLAST+l 
00 3C68 1=1. NR 

IF ( KTYP6 ( I I-D3C63, 3067, 3063 

3067 XTEST(KNT) a XI I ) 

RTESIIKNT) - R< I) 

KNT = KNT+1 

3068 CONTINUE 
NTEST = KNT 

XTESTCNTEST) = XINLASmi 
RTESTINTEST) a RINLAST+l) 

C ARBITRARY VALUE BF XF USED ONLY T0 

C BF BINARY TAPE 11. 

XF a XI NLAST+l I 

C WRITE FIRST RECORD BN BINARY TAPE 

3070 WRITE III 1 [TAPE, IOB0DY,EH,UPSTRH , XF 
1 NTEST , IXTEST 1 1 ) .RTESTI I) , I* l, NTEST 
NTCBLN = NTCBUN-* 1 
NT 3 = NTC0UN»3 

C ARTIFICIAL TIME VALUE - INDICATES 

C A SPECIFIC KK VALUE. 

ST0RTFINT3) = 1C0C. 

00 3CE0 L a 1, NTCBUN, IMAX 
3080 CALL 8 INTAP (2,WRD1I1,L) ) 

4 050 NTCBUN = 0 

IF! I SH0RT- 1)4055, 40 57, 4055 
4055 IFIKCBDE I9C0, 4059, 100 
4 057 KK = 5 

ISH0RT = 2 
TF=T SAVE 
GB TB 5004 

4059 IFI ITAPE-21900, 4060, 900 

4060 1TAPE a -ITAPE 

WRITE III UTAPE, loe0OY,EM,UPSTRH,XF 
1 NTEST , IX TEST 1 1 ) ,RTEST 1 1 ) , I = 1 , NTEST 
END FILE 11 
REWIND 11 
CALL LNCNT17.KKKK) 

WRIT E I 6, 99C0 ) 

9900 FORMAT I//5X.95I 1H* ) // 10X 5 1H THE END 


MAN32570 
MAN32580 
MAN32590 
M AN32 600 
HAN326 10 
MAN32620 
MAN32630 
KAN3Z640 
MAN32650 
MAN32660 
H AN326T0 
MAN32680 
MAN32690 
KAN32700 
HAN32710 
MAN32720 
MAN32730 
MAN32740 
MAN3275G 
HAN32760 
MAN32770 
MAN32780 
M AN32790 
MAN32800 
MAN32810 
MAN32820 
HAN32830 

PRESERVE FORK £F FIRST RECORD HAN3oc40 

KAN328SO 
HAND 2860 

2F TOTAL FORCES. NAN32E70 

iKK»NTC0UN*(FSTfcDYH),Ial,Z), HAN3286U 
1 MAN32890 

KAN32900 

MAN32S10 

END OF THIS BLBCK BF VALUES FOR M.AN32920 

MAN3243U 

MAN32940 

MAN3Z950 

MAN32960 

MAN32970 

HAN32975 

MAN32980 

HAN3298Z 

MAN32984 

MAN32985 

HAN32986 

MAN32988 

MAN3299D 

,KK,NTC0UN,(FSTEDYII), 1=1,2) , MAN33COO 
1 MAN33C10 

MAN J3G20 
MAN33C30 
MAN33C32 
MAN33C34 

0F FILE HAS BEEN WRITTEN BN BINMAN3 3C36 


9 00 


1AHY TAPE 11.//5X , 55 l 1H* ) ) 
RETURN 
END 


MAN33C36 

MAN33C40 

MAN33C50 
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subkoutinl aiNT\PurAPe,WKiu) 

c wkitVs’time Vtus'cneFMcitNrs an binary tape in blocks oh 
c im«x points. 

' ‘HRjiiLt PRFC/STijJ:i HKOT f 3 ".40 I 
00 TO 135*651. ITAPE 

35 WRITE (8IWRQI 

r.o ra aoO 

65 WRITE (IIJ'WIL‘1 

03 TO 600 

400" RETURN “ ‘ ' 

PflO . 


HINT 100 0 
HINT 1010 
HINT 1020 
HINT L010 
HI NT 1040 
Bi NT 105 0 
BINT 1060 
HINT 10 + 0 
01 NT 1030 
HINT 1090 
HINT 1100 


100 

C 

c 

c 

c 

c 

c 

c 

c 

t 

c 

c- 

c 

c 

c 

500 

c 

c 

c 

c 


610 


620 

sOO 


SUBR0UTIKE INTGRL IXL0WER,XUPPER,KSTEDY,LeP72,L2PT3) 

THIS ROUltNE COMPUTES TEE GENERALIZED FORCE INTEGRALS’ OVER THE 1 “ 
SURFACE OF THE SPACE VEHICLE, BETWEEN THE L IN ITS XLOWER AND ' 
XUPPER. A SIMPS0NS RULE IS USEC WHENEVER POSSIBLE IWHEA THE 
INTEGRANC IS SMOOTH BETWEEN 3 EQUALLY SPACED POINTS. OTHfcRWISF, 

A TRAPAZEIDAL RULE IS USED. KSTEGY = 1 F0R A STEADY STATE 
INTEGRATI0N. AND * 0 FOR THE TRANSIENT CASE. 

L0PT2 ARC L0PT3 DENOTE OPTI0NS FOR VARIOUS OUTPUT DATA; 

DOUBLE PREC IS ION EM ,EM2 ,UPSTRH, VZERB, TIME.EPS .RB'ASE .BETA ,-BETA"2 , 
LCFI18) .XI150) ,R( 1501. RP 1150), XIUSCI.TI 150. A (150), CIISC). 
2UASI300I.VASI300I 
3,WRD1(3,3001.CNA,CMA 

COMMON £M,tfPSTRM,V2fcR0, EH2, X.R.RP.XI ,T, A.C, gETA.RETA2.TIME, EPS ,CF , 
iCNA.CBA.WROl, 

2RBASE ,UAS . VAS .KTYPE II 50 ) * Nt AST 
DOUBLE PRECISION BLANK! 4 ) ,XSP! 3 1 1 .ELANK2 [4 J 

DOUBLE PRECISION X JP1.XL0HER . VWPl.OJ ,UT, XX.KJPl ,UAJF 1 , 

tVAJPl, UC, VC, XUPPER, VKP2,XJPZ,RJP2,LAJP2,YAJF2,DJP1,XJ,RJ,0JM1,UAJ, 
2VAJ,¥H,C0N,UCJ,VCJ,TFRM1,PHTJ,T£RM2,TERM3 
INITIALIZATION 

NN=NLAST+t 

XJP1=XLBWER 

VHP1=VZER0 

L0CATN=5 

J0MP=0 

DJ=0. 

UT=X(NLAST+1)+1. 

DO 100 1 * 1 , 18 

CFI I )*0 . 


LBCATN * 1 X IS L0WER LIMIT 

2 X IS AN INTERMEDIATE VALUE 

3 X IS LOWER LIMIT, NEXT X IS UPPER LIMIT 

4 NEXT X IS UPPER LIMIT 

5 X IS UPPER LIHIT (EXCEPT DURING INITIAL I ZAT I ON) 


JUMP = 1 AT A DISCONT ILL I TV 
UT IS LOCATION 0F GUST FRBNT 
VH IS VZER0 TIMES THE BUT STEP 

I F I KSTEDY 1500,500, 1000 


HIU*T-Xi 


SPECIAL INITIALIZATION FOR TRANSIENT INTEGRATIONS 

UT+UPSTRMTIHE 
11=1 

COMPUTE SPECIAL POINTS, XSP, AT INTERSECTION 3F CIRCLES ASSOCIATED 
WITH CORKER SOLUTIONS AND SPACE V6HCLE SURFACE. 

DO 600 I =2 , NN 
(MISTYPE! I ) ~1 1600, 610, 6C0 
CALL PO IMS II , XSP 1 1 1 1 » XSP 1 1 1+1 ) , K0CE ) 

!F(K0DE)7OG,7OO,62O 

ii=ii+koce 

CONTINUE 

rearrange the xsps into an increasing sequence. 


too XSP I II J*X| NN) + 1 * 
8 JOO CONTINUE 


INTE0900 
I NTS 1000 
INTE1010 
INTE1020 
INTE1030 
INTE1D40 
INTE1050 
INTE1060 
INTE1070 
INT61G80 
INTE1090 
INTE1100 
INTElilO 
INTEI 120 
INTE1130 

INTEliAj 

INTEU50 

INTE1160 

INTE1165 

INTE1170 

INTE1180 

INTE1103" 

INTE1200 

INTE1210 

INTE1220 

INTE123Q 

INTE1240 

INTE1250 

INTE1260 

INTEI 270 

INTE1280 

INTE1290 

INTE1300 

INTE1310 

INTEI 320 

1NTF1333 

INTE1340 

INTE1350 

I NTE1360 

INTE1370 

INTE1380 

INTEI 390 

INTE140C 

1NTE1410 

INTE1420 

INTE1430 

INTE1440 

INTE1450 

I ME 1460 

INTE1470 

INTE14B0 

INTE1499 

INT61500 

INTE1510 

I NT £1520 

INTF1531 

INTE1543 

IME1550 

INT61S60 

INT61579 

INTE1530 

INTEI j90 

INTEI 600 

INTE1610 

INT61615 
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u=u-i 


INTE1620 


ifui-i><)00,800,71o 


INTEloOO 

713 

3 LAST =11-1 


INTF16A0 


D0 800 1 = 1 , HAST 


INTE16S0 


J1=I+1 


INTEI660 


OH 800 J=J1,I1 


INTE1670 


I F 1 XS P 1 II-XSPI J 1 )800, 8CC, 810 


ItiTElcSO 

310 

xx=xsp< ii 


INTE1680 


xspii)=xsp(j) 


INTF1 7 TO 


XSPI J]=XX 


INTE1710 

30C 

CONTINUE 


INTE1720 

900 

LISTN0=1 


INTE1730 


IF (LBPT3>90,O0,B0 


INTE17A0 

80 

WRITE (6,88) IXSPl J) , J=l, ID 


INTF1750 

39 

F3RFATI Ih0/(F10.61 1 


INTE1760 

90 

CONTINUE 


[NTE1,770 

C 



INTS1780 

C 

LOCATE INITIAL CONTROL P0INT SUCH THAT XIN) .LE. XJP1 

. LT. XIN+ll INTEH7O0 

c 

ALS2 FINC NINOEX. HOI) SALUHS (IF NINOEX REFER TE C2NTRHL PRIMS 

INTEI'POO 

c 

AMD EVEN VALUFS T0 M I CP0 INTS * 


INTC1B10 

c 



INTCl'82 0 

1000 

03 1100 fi>=l,NN 


1NTE1830 


I F ( X ( N) -X J P 1 ) UOOt 1200, 1300 


INTE1840 

uco 

CONTINUE 


INTE1830 

c 



INTE1363 

c 

’XL0WER PAST END 0F BfJDY • 


INTE1870 

c 



INTF.1B30 


CALL ERRgR 


INTE1B90 

1300 

I F ( t X (N)+X I N-l J J/2.-XJPI) 14CC» 1400»150C 


I NTE190O 

1200 

N=N+1 


INTE19X0 

1 500 

NINDEX=2«N-3 


INTE1920 


GO T0 16C0 


INTF1930 

1400 

NINOEX=2«N-2 


INTEL 940 

1600 

N= < NI NOE X+ 1J/2 


INTE1950 


R,!Pl = RtM+(XJPl-X(N) » *RF ( N ) 


INTC1960 


CALL UANCV ( XJP1 , RJP1 , UAJP1 , VA JP1 ,UC » VC ) 


INTF1970 

c 



INTE1980 

c 

THE NEXT SECTION, WITH NUMBERS IN THE 2CCCS, CSMPUTfcS 

ThE (J+21 

TH I NT E 1990 

c 

P3INT T Z BE USCD IN THE INTEGRA! ICN. KJP2 IS 0 IF THE 

IMEGRANO 

I NTE2000 

c 

IS SMeGTF AT THIS PPINT, AND IS A P 1 DPfl 1NT • 


INTE2O10 

c 



INTE2C20 

c 

THE OUANTIPIES X JP2 , R JP* , UAJP2, V A JP 2 , K JP 2 , AAD DJPl ARE 

CCMPLTED . 

, INTF2U30 

c 



INTC2049 

c 

NtNINDEX, JUMP, AND L2CATA MAY BE CHANGEC- 


INTE2 J50 

c 



I NTC2C6 1 

2000 

IF( X JPi-XUPPER) 21*J0,205Ci 20 SC 


INTE2C70 

2050 

L0CAT,N=L2CATN+2 


I NTE208 1 

c 



INTE2090 

c 

END ZF THE LIME 


INTE2190 

c 



INTE2119 


go re 29co 


INTE2120 

2100 

K JP2= 1 


INTE2130 


VHP2=VHP1 


INTE2140 


I F I JUMP ) 2300, 2300,2200 


INTE2150 

2200 

JUMP=0 


INTE2160 


I F < X JP L-UT ) 22 40, 2220, 2240 


INTE2179 

C 



INTE2130 

C 

END 0F THE GUST 


INTE2190 

c 



I NT E 2 200 

2220 

X JP2=X JP1 


I NTE221 0 


VHP2 SS 0 


I NTEZ2? 0 


UT=X(NN)+1. 


INTE2230 


G 0 T3 2 7CQ 


INTE2I40 

r 

JUST AFT 0F A ShKULDER 


INTE226J 

c 



INTE2260 

224C 

XJP2=X(M 


INTE2270 


N=N+1 * 


INTE2280 


NINDEX=MN0FX+2 


I NTE2290 


g s re 26 co ' 


I NTF230Q 

23CO 

N IMDEX=N INDEX +1 


I NTE231 0 


K0RNER=O 


IN7E2320 


N=(NINDEX+1 )/2 


INTE2339' 


IF ( (NINCEX/2) *2“N1NCEX1 2340, 232C ,2240 


INTE2340 

C 



I NT E2 3*30 

c 

NINDEX IS EVEN. - M I DP£ INT- 


INTE2360 

c 



I NTE23" r 0 

2320 

K JP2=0 


INTE2289 


XJP2-IX(M+X(N+iI 1/2. 


INTE2390 


G0 T0 24CO 


INTE24C9 
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c 

C fUNOEX IS BOD - C0NTR3L PAINT - 
C 

2340 IF (KTYPEIN 1-1)2360, 2380, 2360 
2340 XJP2-XINI 
G0 T0 2400 
C 

C NINDEX IS 000 - SHOULDER CENTS 0L POINT - 

C 

2380 K0RNER*l 

XJP2*XIN)-2.»XI IN I • ( I .-EPS ) 

2400 IF(XSTEDY) 2420, 2500 »242C 
2420 IFtK0RNER)244Q,26OO,244C 
2440 JUHP=1 

G0 T0 2700 
C 

C CHECK F2R GUST FRONT IUT) AND SPECIAL XS CXSPI 
C 

2500 IF(XJP2~UT}2520, 2540, 2540 

2520 1FIXJP2-XSP(IISTN0) J242C , 2560,2560 

2540 XJP2=UT ■ 

JUHP=1 
GO T0 2580 

2560 XJP2=XSPaiSTN0J 
LISTNB=USTN3+1 
2580 NINDEX-NINDEX-1 
KJP2=1 

N=(NINC6X+L!/2 
G0 TB 2700 
C 

C CHECK TB SEE IF UPPER LIMIT IS REACHED 
C 

2600 I FI XJP2-XUPPER) 2620,2620.2800 
2620 RJP2=R(N)+(XJP2-X(N1)»RF1N) 

OAJP2=UAS!NINOEX) 

VA JP2=VA$ { N INDEX J 
00 T0 2780 

2700 I FIXJP2-XUPPERJ 2720, 2720,2800 
2720 RJP2=«<MMXjP2-X(N!>*ftFlN> 

CALL UAN£V(XJP2,RJP2,UAJP2»VAJP2,UC,VC5 
2780 0JP1=XJP2-XJP1 

2900 G0 T0 14000, 4000, 4000, 4000, 2000, 2920, 29201, L0CA7N 
C 

C RANGE 0F INTEGRAT I0N IS NEGATIVE BR ZERE 
C 

2920 CALL ERRKR 

C 

C UPPER LIPIT DETECTED, 

C 

2800 XJP2=XUPPER 

I FSXJP2-Xt Nil 2820,2720,2720 
2820 N=N-1 

G0 T0 2720 

C 

C THIS SEGMENT UPDATES THE VARIABLE 2F INTEGRATION. 
C 

3000 XJ=XJPI 

xjpi=xjp2 

RU-RJPl 

ft JP1=R JP2 

OJMt*DJ 

0J*DJP1 

KJPi=KJP2 

UAJ=UA JPI 

UAJPl=UAJP2 

VAJ-ViJPl 

V AJP1«VAJP2 

VH=VHP1 

VHPL=VHP2 

G0 T0 13100, 2000, 3300,3200, 35005, LBCATN 
3100 L0CATN=2 

G0 T 0 2000 
3300 LSCATN=S 

G0 T0 40CO 
3500 LBCATNsl 

G0 TO 2000 


INTE2410 

INTE2420 

INTE2430 

INTE2440 

INTE2450 

INTE2455 

INTE2460 

I NTE2470 

INTE2430 

INTE2485 

I NTE2490 

INTE2500 

I NTE25 10 

INTE2520 

INTE2S30 

I NTE2S40 

INTE2S50 

INTE2560 

INTE2570 

INTE2S80 

INTE2S90 

INTE2600 

INTE2610 

INTE2620 

INTE2630 

INTE2640 

INTE2650 

INTE2660 

INTE2670 

INTE2680 

INTE2690 

rNTE270Q 

INTE2710 

INTE2720 

INTE2730 

INTE2740 

INTE2750 

I NTE2760 

INTE2770 

INTE2780 

INTE2790 

INTE2800 

INTE2S10 

INTE2820 

INTE2630 

INTE2840 

INTE2850 

INTE2860 

INTE2870 

JNTE2880 

INT62S90 

INTE2900 

INTE2910 

I NTE2920 

1NTE2930 

INTE2940 

INTE2950 

INTE2960 

INTE2970 

INTE2980 

INTE2990 

INTE3000 

INTE3010 

INTE3015 

INTE3020 

INTE3030 

INTE3035 

INTE3040 

INTE30S0 

INTE3Q60 

INTE3O70 

INTE3080 

1NTE3090 

INTE3100 

INTE3110 

1NTE3120 
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c INT8313Q 

C THIS SEGMENT (4000S) DETERMINES THE H0CE OF INTEGRATION FOR THE INTE3140 

C NEXT STEF. AND THE MULTIPLYING CONSTANT FDR THE PRESENT STEF. INTE3150 

c INT63160 

C M0OE = I TRAPAZ0 ICAL INTE317Q 

C 2 SIMPSON S (END P0INT) - INTE3180 

C 3 SIMPS0N S (MICP0IAT1 INTE31P0 

c INTE3203 

4000 C0N=0. INTE32 10 

GOTO [4100, 4200, 43G0, 4200, 4200) .LeCATN INTL3223 

4X00 IF(0ABS(CJ-CJP1 ) - .000001 «C J ) 4 1 1C , 411C , 43C C . INTC3c30 

4110 IF(KJP1)4300, 4120, 4300 • IME3240 

4120 M0DE=3 , -INTE3250 

'C0N = 2 • *DJ+CON IMTE3200 

G0 T 0 5000 I NT F 3 * 70 

4300 M0DE=1 INTE3280 

C0N=3..OJ+CflN I NTF329Q 

G0 T0 5000 I 1TE3300 

4200 IF(M0OE-2)421O, 4220,4230 InTF3j10 

4210 C0N=3 . *DJM 1 INTE3320 

4240 G0 T0 {4900 ,4 100 , 4900,4300, 5C00 ) ,L0CATN INTE3330 

4220 C0N=2.«OJM1 INTE334C 

G0 TK 4240 IN 163350 

4230 M0DE=2 INTE3360 

CZN=8..DJ INTE3370 

G0 TO 5000 I ME 3 3 50 

4900 CALL ERROR INTE3393 

C INTE3400 

C COMPUTE THE INTEGRANDS INTE3410 

C ■ I NTS 34 20 

5000 CONTINUE I NTE3430 

C ' I NTE3440 

C INTE3450 

C INTE3440 

C INTE3470 

C ADD A SECTION HERE T0 COMPUTE TEE PRESENT VALUE 0F THE MODE SPAPFSIME3430 

C Yl,Y2,Y3,ANO Y4. IME3493 

c ISTE3500 

C NTF3510 

c INTE3520 

IFIKSTEDY 1 5100, 5200, 51CC INTE3530 

51C0 CALL UANCV(XJ,RJ,UAJ,VAJ,UCJ,VCJ) INTE3540 

TERP1 = C0M t-UCJ) *RJ IMF3553 

G0 T0 53C0 INTE3aF0 

5200 CALL UTANVT(XJ,RJ,D,UCJ,VCJ,PHTJ) INTE3573 

TERM1=C0N.(PHTJ-UCJ).RJ INTE3530 

5300 TERM2»-C0N»VAJ.(VCJ+VH)«RJ INTF3590 

TERP3=C0N*UAJ«UCJ«RJ INTE3603 

CF(l)=CFtll+TERPl INTE3610 

CF(2)=rF(2I+TERP2 INTE3-.20 

CF(3)=CP(3 1+TERN3 IMF3-J>0 

CF { 4 ) =CF ( 4 I +TERN1.XJ 1 1 1 TE3c-40 

CF!5)=Cf <5 )+TFRP2«XJ I .'TE3650 

CF(6)=CF(6)+TERM3*XJ INT£3o60 

c • IffTF.3673 

c ....I..TE35F3 

c IMTE3670 

C ADO SECTION HERE T0 UPDATE CFU) — CFUE) IMTE3/73 

c IME371J 

C INTF3720 

C IME3730 

C FOLLOWING SECTION IS A TEMPORARY TEST SECTION INTF3740 

C JNTE375C 

IF IL0PT2I531O, 5320,531C JNTE3760 

5310 WRITE ( 6 ,5319 I X J.RJ ,DJ ,CON , TERH1 , TERM2 , T ERM2 INTE3770 

5319 F0R«ATI15H INTGRL TEST. 7E15.T ) INTE3740 

5320 CONTINUE INTE3790 

IFl LOCATN-5 ) 3000, 5400, S40U I NTE 3003 

5400 DO 5500 1=1,18 1NTE3B10 

5500 CF(I)=Cf(n/«. INTE3B2 3 

RETURN INTE3B30 

END INTE354C 
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r 


NOT REPRODUCIBLE 


C 

C 

C 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


SUmOIJTtflt- LTMVnXXX.R.tK.L.lPTI.lJCT.VCTtDPHITU) 

CONFUTES VELOCITY C 3 MP.MCMS AT A PAINT AM THE SURFACE (TRANSIENT 
A'LS’v CONFUTES ?Hirt 3 MPimE 757 r THirKEUTPlCronrTir "THFTJPSTRE AH 
VELOCITY, U.TIMbS THE PARTIAL DER 1 VATIVL 0 F PHI WITH RESPECT TO T 
l OPT L IS USED POk OPTIONAL OOTPU T" DATA’. 

OvlIJRLE PRECIS I UN EH, fcK? ,UP STRM, V ZERi! * TI PE rEP$ 7 RBASE,'B£TA* BET A 2 , 
I CF( 13 ) ,X( 150 . R ( 1 50 ) » ftP ( l 50 ) .XI { 150 ) . T ( L 50 ) ,A( 1 50 ) >C ( 150 r 

>uaST IfiOTTVA STVTO Y ' 

5 ,HPCU 3 .? 001 ,CNA,CMA 

CDNKJN CKiUPSTRNfVZfc'R»IfLH?iX*R*RP|XI , T, w f G » ti£ TA» BETA 2 , T iMe » EPS» G F 
LCNA , CMA * WHO l * 

?RhASL.UAS.VAS*KTYPF( 150 )*NLAST~* 

OFUBLb PP» C IS I ON XX, X XX »KK ,RRR *TT , SUMXC » SUMftC , SUMPT t XNR ,TM »CON» 
*IUTf R ,’uTmR’2 l xuTk, XUTl"£ ,R\DT *r^ 3TT2 »Xinr<TP51XTT7P5TRC7DPKT »ARG»F,E, 
PC 1 ,Um» VA. UC .VC * UC T ,YC T * liPH I T U, ROOSQ* ROO , AKG l » ARC 2 t CHI R$K,K 0 C , F I » 
jEI.S INPHI »C hIR 2 ,XCHlR 
XX=XXX 
RR=RRk 
TT=T 1 ME 
ir (xx) 2 uo; 2.3 

2 <X=l.-FPS 

»*K- XX*PP(l) 

TJi 3 

200 CALL FRK 3 R 

‘*;.j tp ji 

3 SUt‘XC= 0.0 
SU^KC-OaO 

subpt-o.o 

IHL FOLLOWING LrfOP INDFaES ^VER ALL SOURCES SO THAT THE 
CiJMRlflUTIfN 3 E EACH TO THE TOTAL CAN BE FOUND. 

U*' 2 * K= l . NLAST 
XnR* (XX-X I(K) )/RR 
Tf^TT-TlK) 

C&W-O 

JUMP OUT .F 13 JP IF TB IS NEGATIVE - UZ FURTHER 

crr.T ^ihuti «NS ca'i e: found - 

ir ( TM) 30 # .> 0,10 

10 IH XNk/EJE < A-L. 0 ) 41.1 1 » LI 

'1RFC= 1, 2, 5. A. ^ CtJRRE S PR»,D To REGIONS A*tt ,C »D"“AND C» RESPECTIVELY. 

41 i.KF.G -1 

T A 2 o 

C^rPUTE rJUAM I TIES UEFDfcD FAR REGIONS B, C. 1 ). 


11 LTFi^=UPSTf M*T V ./R° 

UTfK 2 »UT«'» *LTr< 
aU 1 *UXNR-hTPR 
XIJTK7 = XUI R*XUTR 

rwVJI - D$mRT(XUTrt<:+l . o 
Ji T^2^R3 'T*( XUT^2 + l .C) 

chu-utmr-f^*rd»:t 

IFICHIK ) 12", 14 * 14 

12 IMXNR-UTrfP +( I .O/JEf A l)U,li*W 

kFUiIN t. .\fc FUR THlR C NTRIUJTIBNS CAN AL FOUND, 

42 Nfu (»=S 
26 PSIXC-O.O' 

?SlKC=0.0 

gphi - o.o 


UTyTlOOO 
UTVT 1010 
JUTVT L 020 
UTVT 103 0 
.UTVT 1040 
UTVT 105 0 
UTVT 1060 
UTVT 1070 
UTVT 109 0 
UTVT 1090 
UTVT 1100 
UTVT 1110 
UTVT 1120 
UTVT 1130 
UTVT 1140 
UTVT 1150 
UTVT 1160 
UTVT 11 7 0 
UTVTilEO 
UTVT 1190 
UTVT 1200 
UTVT 1210 
UTVT L ?2 0 
UTVD 1230 
UTVT 1240 
UTVT 1250 
UTVT 1260 
UTVT 1270 
UTVT 1290 
UTVT 1290 

umiiou, 

UTVT 13 10 
UTVT 1320 
UTVT 1330 
UTVT L 340 
UTVT 1350 
UTVT 1360 
UTVT 1370 
UTVT 13 B U 
UTVT 139 0 
UTVT 1400 
UTVT 1410 
UTVT 1420 
UTVT 1^3 0 
UTVT 1440 
UTVT 145 0 
UTVT 1460 
UTVT 1470 
UTVT 149 0 
UTVT 149 0 
UTVT L 500 
UTVT 1510 
UTVT 1520 
UTVT 1530 
UTVT 1540 
UTVT 1550 
UTVT 1560 
UT VT 15 7 0 
UTVT 15 ? O 
UTVT 159 0 
UTVT 1600 
UTVT 1610 
UTVT 1620 
UTVT 1630 
UTVT 1640 
UTVT 1650 
UTVT 1660 
UTVT 16 7 Ci 


IF (L>jPT 1 ) 22 »JO , 23 
23 CALL LNCNTU,KKKK) 

WRITE! o »900 )K « jJRLG«XX ,Rk , T T , PS I XC , PS IRC , DPH I 
U M IP 30 
13 NREG =2 

I F (K — 1 ) 9 , »,5 

5 IF(KTYP£{K)- 1 ) 6 r « .60 
C 

C LINEAR TYPE OF SOLUTION IN ‘<LGI 0 J^ B. 

C 

a ^Ji'T = DSORM X A 2 ) 

ARG^XiM/fil.TA 
U 5 N* L. 0 /BJ-TJ 2 
PSIXC=- 2 . 0 *ROOT 

PSIFC-XMR»R«OT+ 9 FTA 2 *ARLOSH! ARC) 

npiil* 0.0 

ur) TJ 20 

c 

c C*TP;.rr. SOLUTE r c 'l IN REGION b. 
c 

7 Ap*,= (XiH-FE TA > /{ XNRfHCT- ) 

A t J(T = D$URT< XNh+flFTA ) ’ 

c,*i - o. crtr r/i'Us^R r(Kii) j 


UTVT 16^0 
UTVT 1690 
UTVT 1700 
UTVT 1710 
UTVT 1720 
UTVT 1730 
UTVT 1740 
UTVT 1750 
UTVT l 7 o 0 
UTVT lT-’O 
UTVT 1760 
UTVT 1790 
UTVT 1900 
UTVT IMO 
UTVT 192 U 
UTVT 183 0 
UTVTIE 4 U 
UTVT 1350 
UTVT I 960 
UTVT 1670 
UTVT 1 * P 0 
UTVT 159 C 
UTVT 1900 
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CALL . CBftELL (ARG«r«E) 
Cl=BETA/UNft+86TAl 

^rrvnsni 

UTVT1920 


PSlXCi-3.O«R00t«IE“Cl»F» 

PSIRC=RO0T»2.O»XNR«CE-Cl«F>+R00T»BETA»Cl»F 

— U7VT 193LJ 
UTVT I960 


OPhI'-O-O 

00 T0 20 

UI VI 1950 
UTVT1960 

c 


UTVTI970 

c 

EQUATIONS FBR TYPE 2 S0LUTI8N IQUAORATIC TYPE1 IN REGION B. 

UTVT19B0 

c 


"UTVTT990 

60 

RH8T * DSQRT ( XNR»XNR-BETA2 1 

UTVT200 0 


CON^RK/bETAz : 

arg=xnr/beta 

— UTYTTOTTr- 
UTVT202 0 


PS IXC*3*0*Bff A2*ARC0SH( ARG J-*3« 0* XNR*R00T 

— UTVT203D 


PS1RC=>3.O*BETA2»XNR»ARC0SH(ARG) + (XNR«XNR-6.O»BETA2)*R00T 

UTVT2040 


DPMI *0 *0 
G0 T d 20 

— UTVT2D50- 
UTVT2060 

c 


U 1 VTZOTCT 

c 

THIS IS A SPECIAL SITUATI 0N IN WHICH THE P0INT IN QUESTION 

UTVT2080 

c 

c 

HAS REACHED TYs" STEADY STATE VALUES. 

TJTVT209T) 

U7VT2100 

uTvrsno 

UTVT2120 

9 

CALL UANOYI XX.RR.UA, VA,UC.VC» 
UCT-UC 


VCT=VC 

f;PHlTU*=Q*0 

utvtino 

UTVT2140 

50 

IF (L0PT1I 50, 31.50 
CALL LNCNTl l.KKKK) 

0TVT2I5C” 

UTVT2L60 

WRTnr~T57qgirt K,Hftg5,xX,RR,IT;UCT,VCT,DPHIT0 uivrzwu 

00 T0 31 UTVT2I80 

14” 

R0OSO=XNR*XNR-BETAZ 
R0O = OSQRT (R0OSO1 

UT VT Z 19 U 
UTVT2200 


AftCli*XNH/BE7S 
ARG2- ( XNR-CHIR 1 /BETA 

Ui Vf 2210 
UTVT 2220 

c 


Q7VT2230 

c 

THE FOLLOWING IF STATEMENT CORRECTS FBR ARG2 BEING SLIGHTLY 

UTVT2260 

c 

c 

"LESS THAN BT5E whICh wAulO GIVE AN IMPOSSIBLE VALUE T-M — 
THE ARGUMENT 0F ARC0SH. 

OT VT 2250 
UTVT2260 

— F 

IF IARG2 - l.OJ 600,610,610 

UTVT2280 

400 

410 

ARG2 = ARG2 + .UOUUOl 
IF(KTYPEtKl-l) IS. 17,65 

u TV 12290 
UTVT2300 



UTVT231 0 

c 

LINEAR TYPE 0F SOLUTION, REGI0NS C AND U. 

UTVT2320 



OTVT2330 

15 

C0N=O. 5/BETA2 

UTVT2340 

PSIRC=XNR*RBO6(CHIR-XUTR»ROOSQI/R00T-(UTMR»tXNR«XUTRFl.O) I/R00T32 UTVT2360 


1+BfcT A2*ARC0SH( ARG2. >+ofcf A2* AKLMSH t AKl>2 ) 
OPHI=-EH2/R80T+UTHR2/R00T32 

UTVT2390 

43 

!FtXhik-UTkR+U,0/t3ETA))43,U»i6 
NRfc G=3 

UTVT2400 

16 

G2 T0 20 

P$IRC=PSIRC-2*O*BET42«ARC0SH<ARG2> 

UTVT 2410 
UTVT2420 
UTVTZ430 
UTVT2440 


NREG=4 
G0 T0 20 

—C 

C 



CORNER SOLUTION, REGIONS C AND 0. 

UTVT2660 




17 

CHIRSR = DSCRT(CHIR) 

UTVT2480 


-'ARC- ( XNR-OE IA J / 1 XNR+B E’TaT 
ROC = osorti XNR+BETA I 

UTVT2500 


LUUbl A/IXNH+bbTAI 
CBN = 0.25C0/(BETA»DSQRT(RRJ) 

UTVT2520 


CALL CBHELLIARGTETET 

SINPHI * CHIRSR/DSORT IXNR—BETA) 

UTVT2540 


--CALL INCECaSINPHI.ARG.FITtTJ “ 

PSIXC=-3.O»R0C*IEI-C1»FI I+CHIRSR* I XUTR2»3.0»XUTR+XNR*3.0-CHIR I 

UTVT2560 


1 pSIRC=RflC*(2.0.XNR»(EI-Cl«FI )+BETA*C l»F I I-CHIRSR* ( 2.0»XNR*XUTR2» 

UTVT258 0 


"TxUTR+xUTft« ( xNft+4.6»i)ThR-CHIft'J—T« 0 1 /R00T3Z 
DPHI=CHIRSR»I3.O»UTHR-CHIR)/R0OT32 

UTVT2600 

44 

1 F ( XNR— Uthft+i l .O/fiET A ) J 19. 44,44 
NREG-4 

UJ vi Z6TTT 
UTVT 2620 

19 

GO TO 20 

PSIXC=PSIXC-*6.0»R3C*(EI-£+Cl*(F-Fn I 

UTVT2640 


PSIRC»PSlkC^«0*kHC>XNk»tfc-t:i+Cl»(Pl-l-] >+2.U*K0C*BETA»il«(F-Fn~ 

NREG=3 .. 

UTVT2660 

c 

G0 T 0 20 

UTVT2670 
UTVT 2690 

c 

c 

EQUATIONS F0R TYPE 2 S0LUTI0N (QUADRATIC TYPE ) tREGIONS U AND 0. 

UTVT 2700 

6 b 

C0tJ*Rk»O.b/Bt I A i 
CHIR2*CHIR»CHIR 

UTVT 2720 


— jcCTIT R-'XNFt-CKIR 

PSIXC=3.0»BETA2«( ARC0SHI ARG1 >+ARC0SH<ARG2 1 1 

UTVT2740 


PSIRC^PSIXC . _ . 

PStXC«PSIXC-3-O*XNR»(R0O-RO0T)-CHIR»I3.O«UTHR*ICHIR-UTMRt-CHIR2l 

UTVT 276 0 


1 /Rfl0T32'-3.C*UiklA^i:HIR-XNk»OTHk»XUIU"nyTO7 
PSIRC=PS1RC»XNR+I RODS 0-3.0 »BETA2 I • l R0O-EM*XCH IR*BETA2»RO0T I - 

ui v< zr r u 
UTVT27B0 


• L CHIR«1XNk« IXNR»X uTR6 l.'OT— 2.0«CH Ik> /KOO l-LHlk2»lxu iw»3.U»u imk-ILC 
2 *XUTR*CHIR I/R00T32 

UTVT2B00 


— Dphl iCHIR2« l3.0»UfflR-2.0»ChIRI /R00 TJ2 3 ~ “ " 

IFIXNR-UTMR+I 1.0/BETA) 166,67.67 

UTVT2B20 

u 

nkeg=3 

GO TO 20 

UTVT 2860 

57 

NKfcG=4 

PSIXC=P$!XC-6.0*&ETA2*ARCfl$H(ARG2) 

UTVT 28 60 
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o njn 


UTVT2BB0 


20 IE (LtfPTl )21, 22,21 


I ( If USW ) 

Wk IT E( 6. 900 IK.NREG.XX.RR, TT.PSIXC.PS IRC, DPHI 

“TO 

1, -,H PSIX,1PE1S.7,5H PSIR , 1PE1 5. 7* 5H PHIT, LPE15.7 ) 
"22' “SuHXC^OUXCTCTIO .'P5I XC.C0N 
SUHRC=SUHRC-*C(K)*PSIRC»C0N 


junr J - 
25 CONTINUE 

30' "uirrs^'s UM5TC 

VCT=-SUMRC 

' nPH nw-raHPT ~ : 

31 RfcTUKN 


11TVT2 960 

UTVT2980 

OTTTZ990 

UTVT3000 


SUBROUTINE UANOVI XXX, RRr.UA, VA»UC,VC 1 - UANV 100 0 

COMPUTES VELOCITY COMPONENTS AT A POINT ON THE SURFACE ISTEADY) USWI01O 
' DOUBLE PRECISION EH, EMZ, UPSTRM, V 2ER0 ,T IME .EPS .RBASE, BETA.BETA2, UANV1020 


|IM Wg Ittlll 


2I1ASI 300), VASI300) UANV 10 AO 

3 , WRO 1(3, 300 ) , CNA, CMA UANV 1050 

COM MON EM, UPSTRM. VZER0,LH2 ,X ,R,RP, XI ,T,A,Ci BETA, BFTA2,TIHE, EPS, CF,UA NV1060 
ICNA, CHA.WROl, USNVlOTff 

2RHASE, UAS , VAS , KTYPEI 150) , NLA ST UANV1030 


rm 


igrlrl 


[H*l 


Ml K>:filW I J IW-TMI f : MUM »u;w 


1PSIX A,PSIRA,PSIXC, PS!RC«TT»RP0T, TTP1 , ARC ,F, b ,TRBR, BETAl ,RgflTl t 
>VA*UC.VC 

XX=XXX 

‘"rr-rrr 

IF ( XX)650*90»9I 


650 CALL ERROR 

K 3 T0 200 L 4 . 

90 XX=W-EPS 

RR=XX*RP(_U 

“91 BR=BETA*RR 
SUMX4=0* 


SUMFt A=0* 

SUPXC=0. 

' SUNRC=0. 

c INOtX OVPk ALL SAUCES, U GfcT Thb CffMTkIBUI IdN“FR'0H EACH, 




UANV 1160 

“U/nroTi?o 

UANV 1180 


1R=( XX— XI (K JJ/BK 


IF TR_JS NEGATIVL THERE IS MJ FURTHER CCNTR I BUTI 0N. ( ALL_ 


TFTr^-i: r/oeoT itjotktg 

100 I F ( KTYP£{ K ) -1 ) 200« 300,250 
: LINEAR TYPE SOLUTION 


200 PS IX A=ARC OSH( TR ) 

i»SIXC«-Z* *PSlRA/ftETA 
PS I RC=PSIKA«TR+PSIX'A 
PS1RA=-BETA*PSIRA 
OB T0 400 


UANV 140 0 
UAHV14T0 
UANV 1420 
UANV L4 JO 
UANV 1440 


300 TT-L-/TR 

RtfflT - DSORT (XX- XI (KI+tJR J 
riPl=TT+L. 

AR(»= ( 1*-TT) / ( TTP1 ) 


CALL 

PS I XA— F/R0BT 

PS I XC=— 1* 5*PS IRA , 

PS IRA=-BE TA»PSIRA 

P S 1 RC = BET A/TT*R3flT/BR» ( E-TT/ (TTP 1) »( 2.-TT)/2,»«F) 
Oft Tfl 400 


UANV 1460 
UANVT470 
UANV 148 0 
“OANVT49 0' 
UANV150 0 


2:>0 TRBR = ( XX— X I IK J I 

u£T A 1-BET A»TRBR 

tNi./tr 

PSIXA=ARCOSH(TR) 


uon = DbCKr i 1 *- n * j 1 1 

PSIRA =8ETA1«(TT»PS IXA»TR*R00T1 1 

PSIXA-2.*TRBR»(PSI X4— R0OT l ) 

*TS IXC=3 **PS IRA/13FT A2 
400 SUPXA=SUHXA+A(K)*PSIXA 


U 

SUMXC-SUMXC+C ( K ) *P SI XC 
*“ ” ~SUNRC=SUMRC+C(K)*PSIRC 

1000 CONTINUE 

ua=-SumXa 

VA=-*SUMR A 
UC=-SUHXC 

VC=- SUHRC 

200 'r RETURN 

END 
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iuuL , I r* M *1 *• I "'HI I I i II"'! *■■ " ! f 


NOT REPRODUCIBLE 


SUBROUTINE C0MeLLICAYS,CK,CEl 
CfiMfcLL CBHP'GTtS THE COMPLETE 
SE-CBND iUNDS.FCKS AND EfK> FBR THE INPUT VALUE 2F K SQUARED. 


i'y.\ « s iMaii 


CELL 1000 

-cEcrarns 

CELL1020 


Rqia tifill 


DOUBLE PREC1SI0.1 CAYl .CAYS .CAYSP ,CKl,C£l,XLN,CE»CK CELL1040 

CAYITAyS — 1 “ " ’ CELL 1050 

CAYS P- 1 .0— C AY t CELL 1060 

IPTCAY1)20,4i 5 CELL 1070 

5 I F( CAYSPl 20 ,6 , 7 CELL 10BQ 


CK 

CE L- L.O ‘ CELL1100 

GO T 8 19 — cmniTo 

0 CALL ERROR , CELL 1120 

G0 T»"2I CELTIITO 

CK1* 1.57079633 CELL HAD 


CEi=CK 

GO TO 19 CELLH60 

X L fi D lTs Cf iCAV 5 P’ S ■ '* CEtniro 

C K 1= ( t ( .019 5119621 + CAYSP+ .03742 563 7 1 > »CAYSP+ .Q3 5900923 8 )»CAYSP+ C ELL 1 180 

235 (•CAYSP+.06S802495B ) »CAYSP+. 129985936 ) +CAYSP+.5 1 *XLN CELL1ZOO 

9 rLiVrnV0173S506 : 4TVCflVSP + .ii‘4757383S5 I *CAY5P+.0621"Cf67JT22" T+C8Y5P CELElZrO 

t+. 443251915 ) *CAYSP+ 1*0+1 1 1 {. 00 52649963 9 *C A YSP+. 0406969753 1« CELL1220 

iCAYSP+7fl9‘?Q'c'lT0'09 “VTC A Y b P + . 2 9 9 9E"3?T83 )»cayspj*xln TELL 1230 

9 CE=C€ 1 CELL 1290 

~ •'CK.Cttr CELCI250 

:l RETURN CELL 1260 

100X1371! 


SUBR OUTINE INCELHSlNPHl.CAYS.FtE) 

SUBROUTINE COMPUTES THE INCOMPLETE ELLIPTIC INTEGRALS OF THE 


RSI ANU SECOND KINDS. E1K.RH1I 
THE- INPUT VALUES OF SINIPPI) AND K SQUAkED. 

' LANOEN-S TRANSFORMATIONS ARE USED.' " 

OBUBLE 1 PRECISION SlNPO.SlNPHI.C^SPO.CAVD.CAYS.CAYSP.'CSYSKOrFl VET 
ir,e,TANP,xN,P2,pRSFi,pRyei,PR0E2 .sumi.sumz.cayp.tanep.phiep.cay. 


2 PH I. 

S1»P0=SIKPHI 

COSPO = DSOSt tl.O - SIiIPO+SINPOi 

CAYO=CAYS ______ 

caysp=i.o-cay!5 “ — — 

CAYSRO =OSQRT (CAYD) 


STATEMENTS 49 TO 57 ARE SPECIAL CASES GIVING KNOWN V AL UES FOR F, 

IF (S 1NP0! ^0.99.51 

F 1=0.0 

£1=0.0 _____ 

03 to 9 i) 

CALL ERROR __ 

”WTi! 91 

IFtSINPO-l.O)5 3,52,5Q 

CallTT’bmeTlTEXW. f .e i 

G3 TO 9 i 

3'tficayo i surras “ ~ ~ 

H = PATAU IS I UP 0/C3S POI 

E 1 = F"1 
GO Til 90 

, Tf :- tCftYS ;p Tr( 3 V 5 6 , 5 7 — 

U=SINPO 


= ti. 

FI = OLPGtTAfSPJ 
' GSi TO 90 

ir;CAYSR0-0. 5)o0. 85, 85 

transformations used fob k small, i.e.. k less than o.s. 

~ TAnP=S'' 1 TIPTi 7 T 3 'S'PU , ~ ' - 

xn = datan itanp) 

”t> 2 =i ;o 

PROF 1=1.0 _____ _____ _ 

pr?li=iT<J 

PkOL2=1.0 

buMt=1><j — — ________ 

_ sunz =0.0 

CAYP = DSOPT (CAYSP) 

TANLP=i 1 . 0 -CAYP!»TAMP/iCAYP*TANP*TANP+ 1 . 0 ) 

PHIEP = OAT AN (TANEP 3 ‘ 


I ELL 1000 
'lEILTUTO 
I ELL 102 0 


I LLL LU3 w 

I ELL 1090 
"TECUTC57) 
1ELL 1060 


TELL 1100 

— lEurnTo 

1ELL 1120 

IELOT3D 

I ELL 1140 


.E.IELL1L60 

TELLUTO 

I ELL 113 0 
““TECCirSD 
1 ELL 1200 

1 ECE 120-5 

IELL1210 

TELL122C 

1ELL1230 

[ELL 1290 

IELL 125 C 
- IELC1260 
IELL 127 C 

IELL 128 C 

IELL129C 
IE1L1Z95 
IELL 130 C 


ISLH34C 

IEIXT33C 

IELL136C 

IELL 13 65 

IELL L37C 
— IELL138T 
IELL L39 C 
TELL 140 C 
IELL 141C 

TEEL' 192 1 

IELL 143C 

lELUTAAC 

IELL 1451 
IELE146C 


79 


66 

XN=XN-0.5*PF.IEP/P2 


IfcLL 197 0 


CAY=l 1.0-CAYP )/( l.U*CAYPI 
IF (CAY-l.L-07 1 70.70, 67 


IfcLL 19BU 
IELL1390 

67 

P2=2.0*"P2 
PH I=P2*XN 
SlNP = OSIN [PHI ) 

TAMP = S I NP/DCOS (PH I ) 

- 

IfcLLlPUU 
TELL 1510 
IELL1520 
IELL1530 


CAYS R - OSORT(CAY) 
PROF 1= ( 1 • O+CAY ) «PR0F L 


TELL 1540 
IELL1550 


PKHE 1=CAY*PR0E1«Q. 5 
SUMI=SUM1+PR0E1 


IELL 1560 
IELH570 


PKP.E2 =CAYSR*PR0E2«O. 5 
SUM2=SUM2+PR0E2*SINP 

■ 

TELL 1580 
IELL1590 


CAYS P- l l* 0-CAY*CAY ) 
GO TO 65 


I ELL 1600 
IELL L6I 0 

70 

F i=PR0F L*XN 

CUFl*( 1.0— C.5*CAY0*SUM1) +CAYSR0+SUM2 

IfcLL' L'6 L"2' 
IELL L619 

- 

GO TO 90 


I ELL 1630 

' 

TRANSFflRMAT I0NS USED F0R K CLOSE TO 
,:k equal to 0.5* 

L.« I.E., K GREATER THAN 

IELL 1650 

'&5 

CAY SR = OSCRT ( CAYS30 ) 


IELL 166 0 
IELL 1670 


PRl'F 1- 1 .0/C AYSR 
SUMl-l.O+CAYSRO 


ITOTT6HTT 
IELL 1690 


PRJE1=1.0 
PRML2-2 .0/C AYSR 


IfcLLL/UU 
IELL 1710 


SUM2=$INP0 

CAY=CAYSRO 


lfcLLl/20 
TELL 1730 

36 

SItiS0=SUM2«SUM2 

*>IHS0=0.5»( (l-0+CAY»SINSG 1-0 SORT ( ( l 

rEnriTvo 

.O-SlNSQ)»(1.0-CAY*CAY*SIHSQ> )) TELL 1750 


SlUP * DSORK S1NSQ) 
SUH2-SUMZ-PR0£2*SINP 


TELL 176 0 
IELL 177 0 


SUM1 =SUMl— PRO 1 1*C AYSR 0*2.0 
CAY- 2.0*CAYSR/ ( L. O+CAY) 


1ELLI7B0 
IELL 1790 


CAYP = DSGRT ( l-O-CAY »CAY } 
iF(CAYP»5o,aa.a7 


IfcLL 1BU0 
IELL 1810 

87 

C AYS K = DSORT {CAY) 
PRPF l=C AYSR *PROFl 


IELL 1830 


SUf 1 l=SUMl+PROtl + CAYSR0*2.0 
PRi'E 1= ( 2. O/CAY ) *PR0E 1 


IELL 1850 


SIJMT=SUMIi-P 90EL*CAYSRO 
SUK2 = SUH2+PR3E2»S[fl?*2.0 


1 ELL 1H t> l> 
IELL 1ST 0 


PR0C2 = ( 2.0/ CAYSR ) *P^0 E2 
GO TO 36 


ltLLLBB U 
IELLIB90 

“S'? - 

T A. IP = (L.O+S INPI/OSORTI l -O-SIN P*SI NP } ) 
T 1 = PROF l«GLfcJG(TANP ) 

1 ELL 1900 

IELL 1910 

90 

F 1 = F 1 *SUM 1— CA YSR0 + SUM2 
F = fl 


IfcLL 192 U 

IELL 193 0 


L — 11 1 


IfcLL 193 5 

91 

RETURN 


IELL 1930 


hNI/ 


IfcLL lysu 


FUNCTION ARC0SKU) 


AC SH 100 0 


OCUBLE PRECISION X» ARClSH*ARC0SH 
INVERSE HYPIRBOLI C COSINE. 


ACSH1010 
AC6H102 0 


IF X IS L C S$ THAN I, MESSAGE IS PRINTED^AND ARCCSH SET^=0. 
ROUTINE USES ALJG A'lD SORT LIBRARY ROUTINES. 

AUSH It) 3 0" 
ACSH10A0 

100 

IF ( X- 1 . ) 998 » 100* LOO 
IFU-L-EIM200.jOO.300 


ACSH106 0 

200 

999 

/ kCC SH "= UL2G l X+OS^RT ( X*X— 1 • J ) 
ARCS 1 SH= ARCCSH 


aCSHTOTCT 

ACSH1080 

300 

MTTUrn 

ARCCSH s DL0GI2.*X-. 5/XI 


SCSHTOTtr 
ACSH110 0 

998 

r »0 re 999 

ARCCSH- 0. 


ACSH1I10 

ACSHU20 

997 

UR IT t (5»997) 

FJRMAK3AH ARGUbMENT OF ARCCSH LESS 

THAN ONE 1 

ACSH1130 


CALL ERROR 
CO TO 999 


AC5H1150 
ACSH1I6 0 


L NO 


ALSHIWO 


80 



Jo O o 


SUHftdUTINL r0IIITS(MH,XXl,XX2.MK0DEl 


THIS SUBRUUTIHE COMPUTES THE VALUES. XI AND X2, AT WHICH THE 


PNTS 100 0 
PUTS TCI 0 
PNTS 102 0 


"HMISJUkCb NUMBER! LIRLLl 1NIERSEUS I HE- BODY SURFACES PTCTS-I030 

PNTS 1040 

PPUm.£'PRLCISTi)fr tM.tM2.UPSIitH.VZfcRi), UPfc.tPS.RBASFf'BFTA.trenrT; PNTS1050 

ICFt 18), XI I5C) ,RUS0) .RP( ISO) ,XIl 150) ,TI 150) .Al 1501 ,C t 150! , PNTS 1060 

'2IJASl'30t>r;v5$~[55fi5 PRTS107TT 

3 .WRDII3,300),CNA,CM& PNTS1080 

COMMON EM.UPStKM.V2ERt).EM2»X,R.RP,Xl . I , A ,L . ubl A. bfc T A2 , T IHE VEPS, EE , PNTS lUVll 
ICNA, CMA.WRD1 , PNTS 1100 

2RBATE,UAFTVaS',KTYF£ 1 liOl.NLASl PNTS 11 1 0 

DOtJOLt PRECISION TM,UTM,RP2,R00T8Q,R00T,Xl,X2,XXl,XX2 PNTS1120 

M“MM " PNT5TT75' 

TM=T I ME-T ( M ) PNTS 1130 


TFTTmTTTTTS 

K0IJF = -T INDICATES N0 POINTS 0F INTERSECTION 0F THE MM CIRCLE 
KITH TO 0 0CY 5W F A'CE” 


10 


PNTS 1140“ 
PNTS 1150 
PNTS 1160 
PNTS 1170 
PNTS 117 5 
PNTS 1180 
‘ PNTS 11 OCT 
PNTS 1200 
PNTS 1210 

K01JNT = 1,2,3, 4 ARE USED ONLY T0 AVOID REPETITION III PRHGKAMMING. PNTS1220 

' " PNTS 1230 

MOUNT = l PNTS 1240 

KP2=KPIK)*Rp(K» 'PNTS 124 5 

RBOTSQ=(UTM.UTM.< l.0 + RP2)/EM2)-( RP1K ) * 1 XIK1-XK MI-UTM)-R( K ) I* PNTS1250 

i{ftP(K)*(X1Kf-XI (’Ml-UTHHR(KI') PNTSTZ60 


KJDt=-l 
GO TC 800 
UTM = UPST«K* IM 
K=M 


11 


Gtf TtJ (11* 12, 26,31,61 KK0UNT 
1 hi R Ht'T'S 0 ) 6Cy 4\"4 


KOUITT = 6 ObNOTLS THE CASE "WTHE bXIfckfUL CURNbR (SH0UL'DHR1“ 
WHEREIN THE HN CIRCLE DUES NOT INTERSECT THE 80OY SURFACE » 

BUT THE ThmTi’J CIRCLE T53BT" intersect; ~ 


K0UNT-5 
K=K+ 1 


GJ T ,i IQ 

61 T h (RtiOTSQ 12,2*62 

62 ROOT = OSORTTRk3.TTS31 “ “ 

Xl=( 1.0/ ( 1.C+RP2) )«(XI MI +UTM+RP (K ) * <RP ( K } *X (K)-R{ K> 1 -R00T) 

X2-X 1+ ( 21 07nTS+£PTrT*K3?n 

IF ( Xl-XClLAST+L) 164, 63*62 

KBOh ^ 0 IMPLIES RATH VALUES *5F X ARE PAST THE END OF THE MISSI 


63 

64 


C~ 

c 

c 


65 


KGI)£*0_ 

‘ GO Ttf 800 “ ' 

IF(X2-X(NLAST+m65,66,o6 

TOj)t=2 Sr^TTFTtS" I'Hb'Kb ARh" 1 Ui> INTbRSLU l HNST* 
XI = SMALLER 3NE Arp X2 = LARGER 0NE._ 

Kuue=2 

Gft Tfi 800 ” ” 


KfJOE - 1 INC I CAT tS THERE IS iiNLY 0NL P 0 1 NT 0F INTE RStCT 1 3N ,~X T 


PNTS 127 0 
“ PNTS1Z8 0 
PNTS 129 0 

PNTST300 

PNTS 1310 
PKT5T32TJ 
PNTS 1330 
PNTS 1340 
PNTS 1350 

PNTS 1760 

PNTS 1370 
'PNTS 133 O' 
PNTS 1390 
“PNTST.400 
PNTS 1410 
“ “ PTTTST4ZCr 
LE. PNTS 1430 
‘ -PNTSI440 
PNTS 145 0 
"PNTST460 
PNTS 1470 
“PNTS 14*J 0 
PNTSL490 
' PNTS 1500 
PNTS 1510 
PNTS 1520 
PNTS 1530 
~ PNTS 154'0 
PNTS L550 

PNTS 1355 

PNTS 1560 
" PNTS 1570 
PNTS 1572 
PNTS 1574 
PNTS 158 C 


66 Ki30F=l 

30 T0 800 

4 K = NL AST +1 ' ’ 

K0UNT=2 
u? f£ 10 

ir(R3x)TSOn3, 14.14 


12 

13 


"kodc=£~ 

70 Tj _20 

RviOT = DSQRT ( ROOTSOT " 

X2 = ( 1*0/1 I-C+RP2) 1 *< X 1 (Nl+UTM+RP (K I * ( RP ( K ) »X ( KI-R ( K ) I+RSkJTl 
Xl-X2-(2«0/ (1 .0+RP21 I •RWT 
Ih(X2-X(NLAST+ D) 13. 15, 15 


15 

16 

17 


X2=X(NLASr+TT 

IF(Xl~X{NLAST+im 6 ‘lM 7 

K«bL = l ~ ” 

U) TO 20 

X1«X(NL~4ST+M 

KDUE=0 


to boo 


PNTST5ff5 

PNTS1590 
PNTS 1600 
PNTS 1610 
PNTS 1620 
PNTS 163 0 

PNTS r&^TT 

PNTS 165 0 
PNTS 1660 
PNTS 167 0 
PNTS 1680 
PNTS 169 0 
PKTS170 0 


81 


C _ THE FIRST AFPRaxlMAri ON FOR XI I S COMPUTED . 

c " 

20 xi=utm» ( i .o- i .o/FM)+ x i(m 

E=S+ l 

2 L I F < X 1-X t K 1 123,22,22 
71 K=K+1 

na^TO 21 

23 K*K-1 

KHUNT = 3 

'G0 toTO 

25 !F(R00TSO 12.2,50 

' '50 ft OB T * DSORI IftJfiilS'Ol ‘ “ ' ~ 

X 1 = 1 1.0/ ( t • 0+RP2 1 ) •( XI IM1+UTK+RP (K>« (R.P ( K)»X I Kl-Rl K ) 1-RB0T) 

‘ 'K=K+1 " 

IUXl-XIK 1 126,26. 10 

2a IFIK0OE-2 I8'C0727"T tUO ' “ 

C 

C n'HTrTtFFTT O XI HA 1 1 ON FOR X 7 

C 

27 X2=lJTR»U .Cf+1.0/EMTV)fI(Kl ~ ~ " 

20 IF(X2-X(K))20,29,29 

29 K=K+ L 

00 T ,1 23 

- 30 — k’K-l - “ “ 

KUUMT-4 

gh'ta'io' ” 

31 IF1R0BTSU)32, 33.33 

32 'K-K-l 

C0 TP 10 

33 RooT = 0'5'QRT i ROOTS!) 1 

X2=< 1.0/1 l.O+RPZl MIXIlMl+UTM+RP (K)*<RP(K)»X(K)-R<K) 1 +R 00T 1 

1 FT X 2 - xTKT) 3575007550 
3A K=K- 1 

GO TO 10 

800 _XX1- XI _ _ . 

XX2=X2 

KNi'DE-KBDb _ 

36 RETURN ~ 

LUO 


PNTSIT10 
- 'PffTST7Z<r 
P UTS 1730 
PKTSTmr 
PNTS1750 



P UTS 16 30 
' PNISlB'iTr 
PNTS1850 
• ’PNTSTBS'Cr 
' PUTS 187 0 


PUTS 1690 



PUTS 195 5 
■ -PUTSTTB-IT 
P UTS 197 0 
"PNTST9BTT 
PU TS 199 0 
PNT52000 
PUTS 200 2 


PATS 2010 


C 

c 

'c 

c 

c 

c 

c 

c 

r 

c 


60" 

10 

20 

30' 


AO 

'50' 


SUBROUTINE L NCHTtM.OOEl 

IsCrP TRACK /F LINES AMD PAGES. AMD PRINT HEADING. 


LNCT1000 

ln trie 10 

LNCT 1020 

— cruncrro' 

LNCT 10A0 


r: = o' ra initT aTTTE. 

MAGNITUDE OF M IS N3. OF LINES TO 8£ OUTPUT IN NEXT BLOCK. 

V '70347 i V C FBRCtS A HEW PAGE. 

KCDL IS 1 ON RETURN, UNLESS A HEW PAGE IS STARTED, WHEN K0DE 
hEaDUG 1 ~i CFTaRTT AND page ,<r. applak on eaCH PAGE. 


___ LNCT 106 0 

= 0. LNCT 108 0 

LNU 1U9U 

LNCT 1100 


CflNMOH/HE 10/ ft ITLn N G V L 8 ") 

Ki‘L‘fc=l _ 

L=h 

IFfLll0.60.20 
KNI = 0 

03 TZ 30 _ 

L = -L " 

IFILlNES -1)30. 20.30 
LINES = ~L INES+ L 
IFtLINES —5 A 1 AO. AO ,30 
Lli.LS = L 

KOOK = 0 _ _ 

KNT =" KNT + 1 *” 

WR 1 TE( 6 . 5 0 1 PE ADT1C , K'JT 
L I'lLs = LINES A 
RETURN 

r.lKRAT rrHTrS7TT3AA,20 X, hHPAGE. I A. 77T 
LUP 


LKernTtr 

LNCT 112 0 
LNCT IT3TT 
LNCT ll AO 
"LNCT 1150 
LNCT 1160 
'LNCT 1170 
LNCT 118 0 
* TZNCT1T90 
LNCT 1200 
LNCI 12 10" 
LNCT 122 0 

CNCT12T0 

LNCT12A0 
LNUT1250 
LNCT 1260 
' “LNCl 1Z7T3" 
LNCT 1230 


82 


on non 


c 

c 

c 


99 


c 

c 

c 

c 


L 

2 


SUBHUUTINC tkRHK 

PROVIDES OUPP JF COHMUH AND AN ERROR TRACE 


UflllBLL PRLCISIBH LIS EM2,UP STKH,VZERU,T IME,EPS,RBASE,BETA,UETA2, 
ICF(13),X[ 150 ,RlI 301 ,RP( laO) TxTTl557 , TT L 50T , A CTFG3 ,£Tl50), 

/UAS1 JOOI.VASI 300) 
i . WWD 1 ( 3 . 300 F. CNA7CMA 

COMMON 6M,IIPST‘<M,VZSR0.hM2,X,R I RP,>!I,T»A,C,UETA,HETA2,TIME,EPStCF 
1CNA.LMA.WRD1, 

Z 1 'bASt,UAS.VAS.KTYPb< 1501 , NLA ST 

KR I T E 1 6 *9*11 " 

FHKMATJ34H1THE ERROR ROUTINE HAS BEEN CALLED ///) 

CALL P0UMI'tEM,VAS(V001iL,KTYPEIL),NLAST,2) ' 

1-3 


FALLOWING SIATEMLMT IS PURPOSELY INCORRECT SO AS TB CAUSE AN 

error trace. 

go ?t*i ' — - - 

CALL EXIT 

return 

LNii 


ERRR 1000 
ERRR 1010 
ERRR 1020 
“ERRRIDTCT 
ERRR1040 
ERRR 1050 
ERRR 1060 
ERRR 1070 
.ERRR10S0 
“ERHRTO90 
ERRR 1100 
ERRR 1110 
ERRR 1120 
ERRR 1130 
ERRR U40 
ERH’R 1150 
ERRRL160 
ERRR U70 
ERRR 1150 
ERRR 1190 
ERRR 1200 
ERKKT2Y0 
ERRR 1220 


SUBROUTINE RES I NP C0MR1000 

SUBROUTINE RESINP (DECK NAME - COMRES) IS TO BE USED WITH THE C0HR1010 

MAIN PROGRAM COMTAR. COMR1020 

SUBROUTINE COMRES, PINTAP, DUHINT, AND QUATAN 00 NOT REQUIRE THE CQHR1Q30 
SAME COMMON AS COMTAR AND ITS ASSOCIATED SUBROUTINES. RESPONSES CDMR104O 
WITH CORRESPONDING TIMES ARE STORED ON SCRATCH TAPES. C0MR1050 

DOUBLE PRECISION EM, UPSTRM, VZERO.XF ,XTEST i 20) ,RTEST 120) , FSTEDY (2 ) , COMR1060 

lCINPt2)*COUP(2), CM AG 12), PH AN Gt2l,SUMIN)2>, SUMOUI 2 } , AQHEG , A0MF,DAQMC0MR1 070 

2, AOML , VLENTH , TERMI ,TERHO» ANGLE, THETA , FACT 1 ,FACTZ,VBAR, PI , CAY, CAYPIC0MR1080 

3 , T ( 300 ) , RES I 2, 300 ) , WRO 113,40) C0HR1 090 

COMMON EM, UPSTRM, VZERO.T, RES, FSTEDY, XF.XTEST, RTEST , AOMEG, C0MR1100 

1 KK, NTCOUN, NTEST , l TAPE, IOBODY C0MR1110 

C0MM0N/HEA0/HEADNG1 18 ) C0MRL120 

IDIH = 40 C0MR1130 

IR = 2 COHRH40 

PI = 3.14159265 C0HR1I5O 

1 REAO (5, 600) HEADN G C0HR1160 

600 FORMATI 1 8A4) CDMR1170 

CALL LNCNTIO, KKKK ) C0HR1180 

5 READ! 5, 6051ITAPE, IOBODY, EM, UPSTRM .VZERO ,XF, KK, JCODE C0HR1190 

605 FORMAT 1 15, A4, IX, 4F15. 0,212) C0MR1200 

VZERO = VZERO /UPSTRM C0MRL210 

IPRIN = 1 C0MR1220 

: LOCATE PROPER SECTION OF TAPE C0MR1230 

7 CALL F INTAP COMR1240 

IKON = 0 C0MR1250 

IF 1 IPRIN 110,10, B C0MR1260 

8 LN = NTEST + 5 C0MR1270 

CALL LNCNT1 LN ,KKKK) C0HR1280 

WRITE 16,700) IOBODY, EM, UPSTRM, VZERO, NTEST C0HRI290 

700 FORMATI 2X15HVEHICLE TYPE - , A4.IH, .4X9HMACH NO. , F7.3 , 1H, , 4X6 HSPEECOMR 1300 

ID ,F10.3,IH, , 4X10HGUST VEL . , F 10.3, IH, /2X14HN0. OF CORNERS, I 4, 3H , C0HR1310 

2 , 67HVALUES BELOW ARE LOCATED AT THE CORNERS PLUS THE END OF THE VCOMR1320 



3EHICLE//8X1HX, 11X1HR/1H ) 

COMR1330 


WRITE 16,7011 fXTEST 1 1 ) » RTEST < I ) , 1= 1, NTEST 1 

CQMR1340 

701 

FORMAT! 2F12* 3 ) 

C0MR1350 


IPRIN = 0 

C0MR1360 

10 

IFtITAPE-1112,12,14 

C0MR1370 

12 

READ (8 } WRDI 

C0MR1380 


GO TO 15 

C0MR1390 

14 

READ (11) WRDI 

C0MR1400 

15 

DO 20 4=1 t I D I M 

C0MR1410 


IF! WRO 1 ( l,JJ-900. ) 17,21,21 

COMR1420 

17 

IKON = IKQN+i 

C0MR1430 


T ( IKON) = WROK It J 1 

COMR1440 


RES l 1, IKON 1 = WRD1( 2* J ) 

COMR1450 


RES (2, IKON) = WR01 (3,J 1 

COHR1460 

20 

CONTINUE 

C0MR1470 


GO TO 10 

C0MR1480 

21 

DO 1000 J = 1 ,1 R 

C0MR1490 


DO 1000 N = 1 tNTCOUN 

COMR1500 

1000 

RES ( J » N) = FSTEDY tJ) - RES(J,N) 

COMR1510 


CALL LNCNTt 1 1 ,KKKK) 

C0MR1520 


WR IT E( 6, 801 > 

C0MR1530 

801 

FORMAT! //) 

C0MR1540 


83 



22 

70? 

23 

703 

24 

704 


201 

705 


202 

706 

203 

708 


25 

610 

C 

320 


330 


310 

30 

40 


50 


51 

52 

53 

54 

5T 

58 

55 

56 


710 

60 

65 

70 

803 


90 

620 

400 


IF( IT AP E— 1 ) 2 2 » 2 2 , 23 
WR l TE( 6, 702 ) 

FORMAT (45X42 HL 
GO TO 24 
WRITE 16,703) 

FORMAT (45X42 HT 


O C A L 


A L 


0 N S E S) 


ESPONSES) 


WRtTE l 6, T04) FSTEDYIIJ.KK 

FORMAT (2X1 8HSTEADY STATE CNA = , 1PE 14. 6, 7BX18HAER0DYN AM !C TYPE =, 
113) . . 

I F ( IT APE— 1)201, 201, 20 2 
WR I TE ( 6, 705) FSTEO Y( 2) ,XF 


C0MR1550 
COMR1560 
COMR1570 
C0MR1580 
COMR1590 
COMR 1600 
COMR1610 
C 0HR1620 
C0MR1630 
C0KR1640 
C0MR1650 


FORMAT (2X1 8HSTEADY STATE CM A =, 1PE 14. 6, 78 X13HSTATI ON (X) =, 0PF8.3/COHR1660 

C0MR1670 
C0MR1680 
COMR 1690 
C0MR1700 


11H ) 

GO TO 203 

WRITE I6,706)FSTE0YI2) 

FORMAT (2X1 8 HSTEADY STATE CM A =,1PE14.6/1H ) 

WRITE (6,708) 

FORMAT (41X7HC N A,20X7HC N A, 17X7HC M A, 20X7HC H A/29X, 

12 ( 5X8HIN PHASE , 6X9H0UT PHASE »5X9KMAGNITUDEt4X5HANGLE) /3X5H0MEGA, 4XC0MR 1730 
21HK,5X7H(K/2PI)» 2X4HVBAR , 2 ( 3X9HC0HPQNENT, 2X ) , 16X6H( DEG. I , 4X2 ( 9HC0MC0MR1740 
3P0NENT ,5X1, 13X6H ( DEG. ) /1H ) 2 

READ(5,610)A0MF, DAQM , AOML, VBAR, VLEMTH, MOREOM, I OPT, OP i,0P2,K0MEGA C0HR1760 


C0MR1710 

C0MR17Z0 


K (KOMEGA = 2), OR K/2PI (KOMEGA 


FORMAT! 4F1 5. 0,F 1 0.0,512) 

INPUT IS OMEGA IKOHEGA = I), 

GO TO (310,320,330) .KOMEGA 
AOMF = AOHF*UPSTRM/VL ENTH 
DAOM = DA0M6UPSTRM/VLENTH 
AOML = AOML *U PST RM/VL ENTH 
GO TO 310 

AOMF = PI+AOHF/0.5 
OAOM = PI*DA0M/0.5 
AOML => PI*A0ML/0.5 
GO TO 320 
AOMEG = AOMF 

CALL DU HINT! 0P1»0PZ,SUMIN, SlIMOU) 

DO 50 J=l, IR 

TERM1 = AOMEG*SUMIN{ J) 

C1NP(J) = FSTEOY IJ l-TERHI 
TERMO = AOMEG*SUMOU( J) 

COUP(J) = V BAR*T ERMO/UPSTRM 

CMAGIJ) = DSQRTICINPI J14CINPI J)+TERMO*TERMO) 

CMAGtJ) = DABS I VBAR #CMAG! J I/UPSTRM ) 

CALL QUATAN 1 IOPT, TERMO, CINP(J) .THETA, ANGLE) 

PHANG(J) = ANGLE 

CINPtJ) = VBAR4CINPI J) /UPSTRM 

CONTINUE 

CALL LNCNT ( 1 ,KKKKI 
IF(KKKK)56,51,56 
CALL LNCNT (8 , KKK.K ) 

IF! I TAPE- 1 ) 52, 52, 53 
WRITE (6,702) 

GO TO 54 
WRITE (6,703) 

WRITE (6,704) FSTEOY 1 1 > , KK 
IF (1TAPE-1) 57,57,58 
WRITE (6,7051 FST EDY (2 ) »XF 
GO TO 55 

WRITE (6,706 )FSTEDY(2) 

WRITE! 6,708) 

CAY = AOMEG*VLENTH/UPSTRM 
CAYPI = CAY 7P 1*0.5 + .00001 

WRITE (6,710) AOMEG, CAY, CAYPI, VBAR,(CINP( J ), COUP I J ) ,CMAGU) , 
1PHANGI J),J=l,IR) , „„„ 

F0RMAT(IXF9.2,2F8.4,F6.2,3( 1PEI4. 6 ), 0PF8. 2, 31 1PE14.6) , 0PF8.2 ) 

IF ( AOMEG - AOML ) 60,65 , 65 
AOMEG = AOMEG+OAOM 
GO TO 30 

IF I MOREOM ) 70, 70, 25 
WRITE (6,800) 

FORMAT (1 HI) 

CALL LNCNT! 0,KKKK) 

IFUCODE) 5,400,90 
READ 1 5.620) XF , KK, JCODE 
FORMAT (55X.F15. 0,212) 

GO TO 7 

RETURN 

END 


COMR 1770 
3IC0MR1780 
COMR 1790 
COHR1800 
C0HR1810 
COMR 1 820 
COMR1830 
C0MR1840 
COMR 1850 
C0MR1860 
COHR1870 
C0MR1880 
CO MR 1890 
C0MR1900 
COMR 19 10 
C0MR192Q 
C0MRI930 
C0MR1940 
CQHR1950 
COMR1960 
C0MR1970 
CQHR1980 
C0MR1990 
COHR2000 
COMR 20 10 
COMR2020 
CDMR2030 
C0MR2040 
C0MR2050 
COMR2060 
C0MR2070 
C0MR2080 
C0MR2090 
COMR2100 
C0MR2110 
COHR2120 
C0MR2130 
C0MR2140 
COMR2150 
CQHR2160 
COHR2170 
C0MR2180 
C0MR219O 
C0MR2200 
C0MR2210 
C0MR2220 
COMR2230 
C0MR2240 
CDMR2250 
C0MR2260 
C0MR2270 
C0MR2280 
C0MR2290 
COMR2300 
C0HR2310 
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c 


1 


3 

4 

5 

6 

7 

8 

9 

300 

310 

10 
12 
14 


15 

16 

18 

20 

30 

40 

50 

60 

350 

360 

C 

100 

1G2 


1C 5 
107. 


108 


C 

900 

902 

9C4 
90 5 
600 


C 

10CC 


SUBROUTINE FINTAP F1NT1000 

DOUBLE PRECISION EM .UPSTRM, VZER0.XF , XTESTI 20 1 ,RTESTI 20 1 , FSTEDY ( 2 ) , FINT1610 
1CINP!2),C0UP(2) t CMAG ( 2 1 , PHANG 1 2 1 , SUM INC 2),SUK0U(2),A0MEG,A0HF, DA0HFI NT 1020 
2»A0HL»VLENTH,TERK1 , TERM 0, ANGLE, THETA, FAC Tl ,FACT2,VBAR,PI iC AY.CAYPI FI NT1030 
3, T( 3001. RES! 2. 300) ,WRD1I3,40) FINTIQ40 

C0HM0N EM, UPSTRM, VZER0.T, RES, FSTEDY , XF ,XTEST, RTEST, A0HEG, FINT1050 

IKK, NTC0UN, NTEST, ITAPE.ICB0DY FINT1060 

DOUBLE PRECISION XEM.XUPSTH.ZXF FINT1070 

CHECK NEXT REC0RC ' FINT1080 

NDIH * 40 FINT1090 

IF ( ITAPE— 1 1 1,1,3 F I NT 1 100 

READ (81 JTAPE, J I CB Y» XEM, XUPSTH, ZXF » KK,NTC0UN , [FSTEDY II), 1=1, 2), FINT1U0 
INTEST, (XTESTIII, RTEST! I), 1=1, NTEST) FINT112u 

GO T0 4 . FINT1130 

READ (11) JTAPE »JIOBY, XEM .XUPSTH, XF, JKK ,NTC BUN, (F5TE0YI 11,1*1,2), FINT1140 
.1 NTEST , IXTESTII 1 , RTEST It 1 , 1 = 1, NTEST) FINT1150 

IF ( JTAPE 1 10, 10, 5 FINT1160 

IF ( ITAPE— JTAPE 1 10,6,10 FINTH70 

IF( lCB0Dy-JID8Y 1 10,7, 10 FINT1180 

IF(EM— XEM110,8,1Q FINT1190 

IF(UPSTRM-XUPSTM)10,9,10 FINT1200 

1FI ITAPE— 11300,300,310 FINT1210 

IF(XF-2XF)iO,1000,10 FINT1215 

IF.IKK-JKK110, 1000,10 FINT1220 

THIS IS NBT THE NEXT REC0RO - REWIND AND START FR0H THE BEGINNING FINT1230 
1FI ITAPE— 1112,12,15 FINT1240 

REWIND 8 . FINT1250 

READ 1 8 1 JTAPE, JICBY , XEM, XUPSTH , ZXF, KK, NTCBUN, 1 FSTEDY 1 1 1,1 = 1,21 , F1NT1260 

INTEST, I XTESTI II , RTEST! 1 1,1*1, NTEST) FINT1270 

GO T O 18 FINT1280 

REWIND II FINT1290 

READ (111 JTAPE,JtDBY,XEt<,XUPSTM,XF,JKK,NTC0UN, (FSTEDY! 1 1,1 = 1,21, PINT 1300 
INTEST, (XTESTI I l.RTESTI 1 1,1 = 1, NTEST) FINT131G 

IFIJTAPE19Q0, 900,20 FINT1320 

IF (JTAPE- 1 TAPE 1100,30, ICO PINT 1330 

!F( ICB0DY— JIDBYI 100,40, 1G0 FINT1340 

IF I EM-XEM) 100 ,50, 100 FINT135J 

IF (UPSTRM-XUPSTH 1100,60, 100 FINT1360 

IF( ITAPE— 1 1350, 350 ,360 FINT1370 

IF(XF-ZXF)100, 1000, 100 FINT1375 

I FI KK- JKK 1100,1000, 100 FINT13B0 

NBT THIS REC0RD - READ DATA T0 FIND NEXT SET. FINT1390 

IFIJTAPE— 1) 102, 102, 107 ■ FINT1400 

READ (8) WRD1 ’ FINT1410 

D0 105 J=1,NDIM FINT142U 

IFIWRDIIV.J) - 900.1105,14,14 FINT1430 

CONTINUE ' FI NT 1440 

G0 T0 102 FINT145G 

READ (11) WRD1 F I NT 1460 

D0 108 J=1,NDIM FI NT 1470 

I F (HRD1 ( 1 , J 1 - 900.1108,16,16 FINT148G 

CONTINUE FINT1490 

G0 T 0 107 FINT1500 

RECORD OSES NBT EXIST C 0RRESP0ND ING T0 INPUT VALUES FINT1510 

IF ( I TAPE— 1 1902, 902 ,904 FINT152G 

REWIND 8 FINT153G 

G0 T 0 905 FINT1540 

REWIND 11 FINT1550 

WRITE I 6, 600) ITAPE, IOB0OY, EH, UPSTRH,XF,KK FINT1560 

FORM AT ( 1H0 ,10X,95(1H*)/ /13X42HDATA 0N TAPE CANN0T BE LOCATED F0R IFINT1570 

ITAPE =, I3.4X16HC0NFIGURATI0N - , A4/13X10HMACH N0. =, F5. 2,4X8HUPSTRFI NT 1580 
2M = , F9 .4 , 4X4HXF =,F9.4,4X4HKK =, I3//10X, 95 ( 1H*1 ) FINT1590 

STOP FINT1600 

LOCATED PROPER SECTION 0F TAPE. FINT1610 

RETURN FI NT 1620 

END FINT1630 
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SUBROUTINE DUHl NT ( DPI ,0P2 , SUKIN.SUKOU I ' DUHT1000 

DOUBLE PRECISION EH.UPSTRM, VZERO, XF ,XTEST<20) .RTESTI20) .FSTEDYI 2 ) , DUHTIOIO 
ICI NP 121 *CQUP (2) «CHAGI 2) , PHANGI2 1 , SUHIN1 2) »SUH0U( 2} t ADHEG, AOHF, QA0MDUKT1020 

2, AORL,VLENTH,TERHt,TERHD,ANGLE,THETA,FACTl,FACT2.VBAR,PI,CAY,CAYPiaUHT1030 

3, T13001JRES(2,300),KR0113,40) 0UH IJ^2 

COMMON EH," UPSTRM, VZERO, T»RES»FSTEDY,XF «XTEST ,RTEST, AOMEG, DUHT1050 

lKK,NTCOUN,NTESTrI TAPE, IOBODY 

DOUBLE PRECISION Q£Ll»0EL2,HI 13) ,HOI3) , ARG,RINC2,31 .R0UI2 ,3J,C0N1»DUNT1070 
IC0N2, T£RHi,TERM2 .TERM3.T ERMA, DEL AC OUHTIOBO 

DIMENSION KST0PI2J DUHT1106 

1TAPE=1 DENOTES A DUHAMEL -INTEGRATION OF- LOCAL -FORCES — 'CNA, CMA.‘ 0UHT1110 
IT AP E~ 2 SIGNIFIES A OUHAHEL INTEGRATION OF THE TOTAL .NORMAL FORCE 0UHT1120 
AND THE PITCHING MOMENT - CNA. CMA. DUHT1I30 

• 5 DU HT 1 140 

INITIALIZATION 2J5JH?!? 

to 9 2 ODHT1160 

ucrpsO ‘ 0UHT1L70 

DO 5 J-I.IR DUHT1180 

KSTOPI Jl-0 DU ^ZHnn 

SUM I N i J 0. 0 S 

SUMOUIJ) * 0.0 OUHJIZIO 

..-I DUHT1220 

,2 = 2 DUHTI230 

L3 , 3 DUHT1240 

DELI = ITIL21—TIL 111/6*0 SVEJHfS 

DEL 2 = IT! L31-TCL2) 1/6.0 OU J?l, l2 S2 

COMPUTE SINUSOIDAL HIND PROFILE FUNCTIONS’ DUHT1270 

DUHT1280 

PPL ALLOHS OPTIONAL OUTPUT OF PORTIONS OF THE INTEGRATIONS DU HT1290 


0P2 ALLOHS OPTIONAL OUTPUT OF HIND PROFILE VALUES. 

DO 15 N=ll,L3 
ARG = AOMSG*T INI 
HIIN1 = OSINIARG) 

HOI N) = DC0SIARG1 
IFI0P2115, 15,12 

WRITE 16,5001 TIN! , HI INI , HO INI 

FORMAT! I0X6HTIME = ,F10.4,5XIOH$IN( ARGt =,E13.6,5X10HC0SIARGI =, 
1E13.6/1 
CONTINUE 
IF! 0P1 125, 25. 20 
WRITE 16,5041 

FORM AT 1 1 HD, 5X4 HT IME,6X5HDELAC,8X4HC0N 1, 9X4HC0N2, 6X1H J.3X5HT6RM1 , 
18X5HTERM2, 8X6HSUM-IN,7X5HTERH3, 8X5HTERK4, 8X6HSUM-OU/1 
DO 30 J=l, IR 
DO 30 N=L1,L3 

RINIJ.N) = RESIJ,N)*HIIN) - 
ROUU.Nl « RESl J,N)*HD!N1 

H0DE=1 TRAPAZOIOAt 

H0DE=2 SIMPSON'S I END P0SNT1 

M00E = 3 SIMPSON'S I MID POINT) 

IFIDABS! DEL2-DEL1) - .0000014DELI1 50,50.55 


OUHT1300 
DUKTL310 
DU HT 1320 
DUHT1330 
DU HT 1340 
DUHT135 0 
DUHT1360 
OUKT13TO 
OUHT1380 
DUHT1390 
DUHT1400 
DUHT141 0 
OUHT1420 
DUHTI430 
DU HT 1440 
0UHT145Q 
DUHT1460 
DUHT147Q 
0UHT1480 
DUHT1490 
DUHT1500 
DUHT151Q 
0UHTL520 
DUHT1530 

40 IFIDABS! DEL2-DELI 1 - .00a001*Q£Lll 50,50.55 DUHT1540 

50 CONI = 2.*0EU 

CONE^B.TDEH DUHT1S60 

MODE-3 DUHT1570 

GO fO 60 . 0UHH58O 

55 CONI = 3.*0ELl 0UHT1590 

C0N2=3-*0EL1 DUHT1600 

MQD£»1 DUHT1610 

60 DO 70 J=1,IR DUKT1620 

IF! KSTOPI Jl-1164, 62,61 0UHT1630 

61 IF l KSTOPI J 1—3) 59,70,70 DUHTI640 

59 KSTOPI J) •* 3 DUHT1650 

IF I MODE— 2)64,64,58 0UHT1660 

58 CONI = 3.* DELI 0UHT167O 

CPN2 = 3.*06LL DUHT16S0 

GO TO 64 DUHT1690 

62 KSTOPI J) = 2 DUHT1700 

64 TERM! = CONl*RINU»l) DUHT1710 

TERM2 = C0N2*RINIJ,21 DUHT1720 

TERM3 « CONl*ROUtJ,U DUHT1730 

TERH4 = C0N2*R0U (J, 2) DUHT1740 

SUMINI J) = SUMIN< J1+TERH14TERH2 DUHT1750 

SUMOU I J) -SUMOUIJ 1+TERM3+TERM4 DUHT1760 

IF! OP 1)70,70,65 0UHT1770 

65 IF! J— 1 ) 66,66, 68 DUHT1780 

66 DELAC = 6.0*DEL1 DUHT1790 

HRITE 16,5051 TIL2), DELAC, CONI, C0N2,J»TERMl,TEftM2,SUHINI J1 ,TERH3, DUHT1800 

1TERM4, SUMOU! Jl DUHT1B10 

505 FORMAT (1XF10.4, 3EI3.6, 13, 6E13.6 1 DUHT1820 

GO TO 70 DUHT1830 

68 HRITE (6,506) J,TERH1,TERM2,SUMIN( J ),TERM3,T6RM4*SUM0U( Jl 0UHT1840 

506 FORMAT! 50X.I3 ,6E13.6) 0UHT185D 

TO CONTINUE ‘ 0UHT1860 
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jo oio 


00 80 J=1,IR 
1FIKST0PI JI-2I80, 80, 79 

79 NSTP * NSTP * 1 

80 CONTINUE 

81 IF I NSTP - l ft ) 82 ,300,300 

82 DO 85 J=l, 13 

IFf KSTOPI 01-3)83,85,85 

83 R!N(J,t) = RINI J , 2 ) 

RINU.2I = RINIJ.3) 

ROUt J, L) = ROUC J,2) 

ROUt J, 2) = ROU tJ ,3 } 

85 CONTINUE 
NSTP * 0 
DELl=DEL2 
L3 = L3 + I 
L2 = L2 + l 

1 Ft L3 -NT CQ UN 190,90, 120 

90 OELZ = tTt L31-TIL2) ) /6. 0 
ARG ■ AOHEG*T IL3) 

HI I 3 ) = DSIN(ARG) 

MO 1 3 ) = DCOSIARG) 

IFI0P2)91,91,87 

87 IFIL3— 10)88,91,91 

88 MRITE 16,500) Tt L3 1 ,Mt ( 3} ,HOt 3) 

91 00 95 j=l, IR 

93 RINIJ.3) = RESt J,L3)*HII3) 

ROU ( J,3 ) = RES(J,L3J*W3I3) 

95 CONTINUE 

130 IFtHOOE - 2)60, 60, 110 
110 CONl-O *0 

C0N2=2.*DELL 
M0DE=2 
GO TO 60 

C END OF FILE HAS BEEN REACHED. DOES NOT NECESSARILY INDICATE THE 

C PRESENCE OF STEADY STATE VALUES. 

120 NSTP = IR 

IFtHOOE— 2)55,55, 110 
300 RETURN 
END 


DUHT1870 
OUHT18BO 
DUHTL890 
0UHT1900 
DUHT1910 
DUHT1920 
DUHT1930 
DU HT 1960 
DUHT1950 
DU HT 1960 
DUHT1970 
DU HT 1980 
DUKT1990 
DUHT2000 
DUHT2 010 
DU HT 20 20 
0UHT203O 
DU HT 2060 
DUHT2050 
DUHT2060 
DUHT2070 
DU HT 2080 
DUHT2090 
DU HT 2100 
DUHT211 0 
DUHT2160 
DUHT2170 
DUHT2180 
DUKT2190 
DUHT2200 
0UHT2210 
DUHT2220 
DUHT2230 
DUHT2260 
DUHT2250 
DU HT 2 260 
DUHT2270 
DU HT 2 280 
DUHT2290 


SUhRRUTINE CU4TAN t [JP T, XNUPk ,OCN JM, THETA , THDtG 1 OUATIOOO 

QUAT 10 l 0 

ANGLE THE rAtRADl ANSI IS COMPUTED EITHER IN THE INTERVAL ZERO TO QUAT 1020 
PLUS PI£“..R zero TO minus PIE By ADDING 3R SUBTRACTING Pi E FRZM " QUAT 1030 
THL PRINCIPAL VALUE I +0R- > RETURNED RY THL LIBRARY SUBROUTINE. 0UATI060 

NOUi'D* GIVES THE (JUADRaNI NUMBER. " CUATlOSO 

QUATL060 

DOUBLE PRLCISI0M FM,UP"STRP. J ZERO. XT’, XTETT (20) ,RT6STTZUT»FSTEDYr2') ,QUAT 1070 
1CIRP (2) iCPUPt 2 >,CiMA 3< 2) ,PHA\Gt 2) .SUHINt^) , SUH2UI2) , APHEG, AJMF , DABMQUAT 100 0 


2 • aokl .VLE. iTF, IekhI ,T EkHo, Angle , TH tTA,FACTl,FACT2, vbAk.PT, 
>. TI 500) ,RLS 12, 300), UROL (3,60) 

'■ ,PIE,0eGF,Xf,UHR,DEN3H',SR"G, ffiTJEG ~ " 

CtlHMQh LM.UFSTRri. VZERO, I , Rf S ,F STUDY , XF , XTEST ,RTEST , AOPEG, 
lRK,IITC3U!t,N7ESr, fTAP£ ,‘IuBKCY ' ‘ _ ' 

PLOT = 5 7 .295 7795130 
PIE = 3.161 59 2 053589 7 93 
ARG = XNU -R/DENSn _ 

THLT A = DiTAN'URt.) ' ' ' 

IF I ARG) 15. E. 5 


J I005T1090 
QUAT 1100 
QUAT mo 
QUAT 112 0 
QUAT 1130 
QUAT 1160 
” QUAT 1T50' 
QUATL160 
QUAT 1170 
QUAT 118 0 


THLT A IS IN TfilTiRD QljSDRXhT”TF‘ itNUHR AMJTSEKQR aitE _ NEGATTVfc WHEN QUAT1190 
APG IS PBS I 71 VE * QUAT 1200 

'IF - fxNUHP ) 1C, e.fi QtTATlgrO' 

fiDUAD = l QUAT 1220 

•;«! if. 50 ' ' ■ QUAT 1230 

1HLTA = THCTA-P1L QUAT 1260 

TIQOAU = 3“ ‘ QUAT 1250 

r,C 13 50 QUAT 1260 

' THLT A IS IN THE 2"10 OUAl/RANI IF DENJM IS NEGAIlVb WHEN AkCTS - QUAT 1270 
NEGATIVE. AND If THE 6 Th QUADRANT IF UEN0M IS POSITIVE WITH A QUAT1280 

NEGATIVE ARC. " ■ - ' QQATr290 

II IDEN0H) 20,15,12 QUAT 1300 

Mil AD = 6 ‘ -- - - - -- QUAT 13 10 

GO TJ 50 QUAT 1320 

ThfFm = THEIA+PIF ' 0ITAT133O' 

IQliAO = 2 QUAT 1360 

THUEG = THFTA,DEGF “ QUAT 1350 

IF (IPPT) 6C0, 600,60 QUAT1360 

WRITE I 6, 30C) 'NQUAD,XNUMR,DEN0H, ARG, THflA, THOEG QUffTT370‘ 

FORMAT (3X , I 5, 6L 16 . 6, F 11 .3 ) QUAT 138 0 
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c 


10 

20 

1 


z 


3 


HA IN PROGRAM - 3089P - TAPRES - CREATES BINARY TAPES OF LOCAL- 
FORCES AND/OR TOTAL FORCES ICNA AND CHA». 

DOUBLE PRECISION EH.EM2, UPSTRH.VZERO.TIHE, EPS, RBASE, BETA, BETA2, 
ICFH8),X( L50),R( 150), RP( 1501 , XII 150) , T( ISO) ,AU50)',C( 150), 
2UAS(300),VAS(300) 

3,WRDL(3,300),CNA,CHA 

COMMON EM,UPSTRH, VZER0.EM2 ,X,R,RP,XI,T,A,C, BETA, BET A2,TIHE, EPS, 
1CNA.CHA.WRDI, 

2RBASE.UAS ,VAS,KTYPEI150), NL AST 
REWIND 6 
REWIND II 
READ! 5,20) I 
FORMAT! 12) 

GO TO (1,2,3), l 
CALL HAIN1 
GO TO 10 
CALL HAIN2 
GO TO 10 
CALL MAIN3 
GO TO 10 
END 


TAPR1000 
TAPR1010 
TA PR 1020 
T APR1030 
TAPR 1040 
TAPR1050 
CF,TAPR1060 
TAPR1070 
TAPR 1080 
TAPR1084 
TAPR10B8 
TAPR 1090 
TAPR1100 
TAPR1110 
TAPR 1120 
TAPR1130 
TAPR1L40 
TAPR1150 
TAPRl 1 60 
TAPR 1170 
TAPR1180 


MAIN PROGRAM -30H9P- RES1NP RESPIOCO 

DOUBLE PRECISION EM , UPS TRM, VZ ER», XF, X TEST! 20) ,RTFST(20) , FSTEOYI 2 ) ,RE SP 10 10 
1C IMP! 2) * COUP I 2 ) ,CMAG( 2),PHAIi„(2) , SUM I ’1(2) , SUMKU12) , A0MEG , A0MF ,CA 3MRES'P1020 
2, A3ML, VLENTH, TERM I, TERMO, ANGLE, THETA,PACT1 , FACT2 , VBA1 ,P I , CAY , CAY P IRESP 1030 


1 

GOO 

A 

5 

6.15 


3,T!300),RES(2,3C0),WR0 1(3,4U) ,FLYTIM 
COMMON EM,UPST,<N,VZEK3,T,RE$,FSTEDY, XF, XTE ST, RTEST , A0HEG, 
lKK,NTCOUN,NTEST , ITAPE, I06G0Y 
COMMON/HE AD/HEAD1GI IB) 

EOUI VALENCE I AOHEGiFLYTIM! 

IOIM = 40 
I R - 2 

P) = 3.14159245 
A = 3279.122 
B = -150.6733 

C = 3.20411 

READ ( 5.600IHEADNG 
FORMAT! 18A41 
CALL LNCNT! 3.KKKK) 

READ! 5,635)EM,UPSTRM,VZEA0, ITAPE, I DB3UY, XF , KK , JC0DE , W I NTYP 
FSRKAI (3FL3.8, I5.A4, 1 X , FI 0.0 , 21 5, F3. 0 ) 


7 31 


WIMTYP = 0 FOR SINUSOID, l FOR ACTUAL PROFILE 

VZCRC = VZEKfJ/UPSTRM 
I PR IN = 1 

LOCATE PROPER SECTION 3F TAPE 
CALL F INTAP 
IK0N = 3 

IF( IPRIN) 10,10,8 
LN = NTEST + 5 
CALL LNCNT ( LN , KKKK ) 

WRITE I 6, 7P0 1 I DisWDY , u : 3 , UP S TRM ,V ZERO , NTEST 
FORMAT! 2X15HVEHICLE TYPE - , A4, 1,1, ,4X9HMACH N0. 


RESP 10,40 
RESP 10 50 
R6SP1060 
RESP1070 
RESP1075 
RESP1080 
RESP1090 
RESP 1100 
RESPU02 
RESPUC4 
RESP1106 
RESPlllO 
RESP1120 
RESP 1 l 30 
RESP 1140 
RESPli 50 
RESP1152 
RESP1154 
RESP1156 
RESPli 60 
RESP1170 
RESP 1 1 80 
RbSPl 190 
R6SP12O0 
RESP1210 
RESP1220 
RESP 12 30 
RESP1240 
F7.3.1H, ,4X6MSPEfcRESP1250 


ID ,F10.3, 1H,,4X lOHGUSr VEL. , F 1 „ . 3 , 1H ,/2Xl 4HN3. 0F CORNERS, I 4 ,3H , RESP1260 
2 , 67HVALUES BELOW ARc LOCATED AT THE CORNERS PLUS THE END OF THE VRESP1270 



3CHI CLC//8.X1HX » 1 1X1HR/1 It ) 

RESP 1280 


WRITE It., 701) I XTEST ( 1 1 » RTEST (I ) 1 1=1 , fc !TuST) 

RESP 1290 

701 

FORMAT C 2F 1 2 » 3 ) 

RESP13GC 


IPRIN = 0 

RESP1310 

10 

I FI ITAPE-1) 12,12 r 14 

RESP1320 

12 

REAO (Q) WROl 

RESP1330 


GO TO 15 

RESP1340 

14 

READ (11) WKD1 

RESP1350 

15 

DJ 23 J=l, IOIM 

RESP1360 


I P( rfftDldt J)-90O. ) 17, 2 1,21 

RCSP1370 

17 

ikon * iKorm 

RESP 1380 


T ( IKON) = WROK 1, J) 

RESP1390 


RES ( 1, IKON) = WR01I 2f J ) 

RESP 1400 


RES l 2 » I K0N ) “ WROK 3» J ) 

RESP1410 

20 

CONTINUE 

RESP1420 


G0 T 0 10 

RESP1430 

21 

00 1000 J = 1,IR 

RESP1440 


00 1000 N = 1 f NTC0UN 

RE SP 1450 

1000 

R ES { J i N ) = FSTEDY(J) - RFS(J,N) 

RESP1460 


CALL LNCNT ( 1 1 » KKKK) 

RESP1470 
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801 

22 

702 

23 

703 

24 

704 


201 

705 


202 

706 

203 

204 
708 


25 

610 


320 


330 


310 

30 

40 


50 


51 

52 

53 

54 


57 

58 

55 
50 

56 


710 

60 

65 

69 

70 
00 
620 

400 

100 

131 


wRtrei&.son 

F0RHATS//) 

IF( ITAPE-1122,22,23 
WRITEI 6*7021 
FORMAT 1 45X42HL 
08 70 24 
WRITE (6,703) 

FORMAT (45X42HT 


8 C A 


RES 


0 N $ E S 1 


0 T 


ESP0NSES! 


RESP1480 
RESP1490 
RESP1500 
RESP1510 
RESP1520 
RESP1S30 
RESP1540 
RESP1550 
SE5P1560 
RESp 1570 
KESP1580 
RESP1590 
RE5P1600 

,1PE14.6,7BX13HSTATI0N (X! =,0PF3. 3/RESP1610 

RESP1620 
RESP1630 
RESP164Q 
RESP1650 
RESP1655 
RESP1660 

A, 17X7HC M A,20X7HC K A/29X, RESP16T0 


WRITE (6,704) F$T60m),KK 

F0RMATi2X18HSTEAOY STATE CNA =>, 1PE14 .6,7BX18HAER00YNAM1C TYPE « 

113) 

IFUTAPE-D201, 201,202 
WRITE! 6,705)FST£OY( 2) , XF 
F0RHAT(2X18HSTEADY state cma 
11H ) 

G0 T0 203 

WRITE ( 6, 7061 FSTEDY! 2) 

FORMAT (2X18HSTEA0Y STATE CMA »,1PE14.671K ) 

1FIW1NTYP)100,204,100 
WRIT6(6,708! 

FORMAT! 41X7HC N A,20X7HC N 
12 ( 5X8HIN PHASE, 6X9H3UT PHASE, 5X9HHAGN1TUDE .4X5HANGLE1 /3X5H0HEGA, 4XRESP1680 
2lHK,5X7H(K/2Pl) ,2X4HV3AR,2(3X9HC0MP0N£NT,2X), 16X6H(DEG. ) , 4X2 ( 9HC0MRE5P169O 
3P0N£NT,5XI,13X6H(DEG.)/1H ) , RESP1700 

READ!5,61O}A0MF,DA0M,4BML, VBAR, YLENTH ,H0RE 0M, I0PT, 0PI ,0P2 ,K0HESA RESP1710 
F0RMAT(4F15.O,F1O.G,5I2) RESP1720 

INPUT IS 0MEGA [ X0MEG4 * 1), K (K.0MEGA = 2), 0R K/2PI (K0MEGA = 31RESP1730 
G0 T0 ( 310, 320, 330) ,K3MEGA 
A3MF = A0HF*UPSTRH/VL=NTH 
0A3H = DABM’HfPSTftM/VLENTH 
A0M1 = A0ML*UPSTRM/VLENTH 
G0 TO 310 

A0MF *■ PI*A0MF/O,5 
OA0M = PI*OA0M/S,5 
A0ML = PI*A0ML/O,5 

GB ra 320 

A0HEG = A0MF 

CAUL C0NV01(0Pt,8P2,SU«IN,SUH0U,WINTYP) 

D0 50 J*1,IR 
TERM! = A0MEG*5UMIN( J) 

CINPfJ) = FSTEDY! JJ-TERM1 
TERH0 - A3MEG*SUM0U( J? 

C0UP(J) = VBARA7ERM0/JPSTRM 
CMAGU) * DSQRTICINP(JI*CINP! J)+T£RH0*TERM0) 

CMAG(J) = DABS t 78 AR SCMAG! J t/UPSTRM) 

GAEL OUATAN ! I3PT,T£R'S0,CINP! J) , THETA, ANGLE! 

PHANGIJ) = ANGLE 
CINP(J) = V3AR*C!NP< Jl/UPSTRM 
C0NTINUE 

CALL LNCNT ( 1 ,RXKK1 
IP!KKKK)56,5l,56 
CALI LNCNT(8,KKXK) 
i F( I T APE- 1152 , 52, 53 
WRITE (6,702) 

G0. TO 54 
WRITE 16,703) 

WRITE (6,704) FSTEDYIU.KK 
IF UTAPE-i) 57,57,58 
WRITE I 6, 705) FSTEDY ( 2) ,XF 
GO T0 55 

WRITE { 6* 706 > FSTEDY ( 2) 

1F(WINTYP)500, 59,500 
WRITE16.708) 

CAY = A0MEG*VLENTH/UPSTRM 
CAYPE = CAY/P 1*0, 5 ■<- ,00001 

WRITE (6,71O)A0HEG,CAY,CAYP!, VSAR, (CiNPU) ,C0UP{ J) ,CMAGiJ), 

IPHANGI J ) , J-l, IR) 

FORMAT! lXF9.2,2F8.4,F6.2,3(lPE14.6),uPF8.2,3< 1PE14.6) ,0PF8. 2 ) 

I Ft A0MFG - A3MU60,65,65 


A0MEG = A0K6G+OA0M 
G0 TO 30 

I F ( M0RE0M ) 73, 70,69 
CALL LNCNT{-1,KKKK) 

G0 TO 25 

I F( JC0OE) 4,400,90 
READ (5,6201 XF,KK,JC30E 
FORMAT <49X,F10. 0,215) 

G0 T 0 7 
G0 T0 1 

READ! 5, IO1)FLYTIM,DFLYTM,FLYTML,O,R8ASE,VLENTH,M0RETM,NSHR, 
l 0Pl,0P2,KTiME 

F0RMAr(6FlO.O, 10X, 12,12,312) 


RESP1740 
RESP1750 
RESP1760 
RESP1770 
RESP178Q 
RESP1790 
RESP1BOO 
RESP1810 
RESP1820 
RESP1830 
RESP1840 
RESP1850 
RESPI860 
RESP1870 
RESP1S80 
RESP189G 
RESPI900 
RESP1910 
RESP1920 
RESP1930 
RESP1940 
RESP1950 
RE5P1960 
RESP1970 
RESP1980 
RESP1990 
RESP2000 
RESP20I0 
RESP202O 
RESP2030 
RESP2040 
RESP2050 
RESP2060 
RESP2070 
RSSP2075 
RESP2080 
RESP2090 
RESP2100 
RESP21 10 
RESP2I20 
RESP2130 
RESP2140 
RESP2150 
RESP2160 
RESP2170 
RESP2180 
RESP2L90 
RESP2210 
RESP222Q 
RESP2230 
RESP2240 
RESP2250 
RESP2260 
RESP2270 
RESP2280 
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c 

c 

c 

c 

c 

c 

c 


110 

111 

120 

121 

122 

123 

125 

129 

130 
190 
141 


150 

160 

170 


c 


500 

510 

520 

530 

531 

540 

550 


560 

570 

580 

590 


RESP2290 

NSHR = 1 T0 READ AND_COMPUTE NEW SHEARS NEXT. 1HUST DB FIRST T1HERESP2300 

RESP2310 

KTIME « 1 TO INPUT ALTITUDE R ANGE_iMETERS) RESP2320 

KT1ME = 0 T0 INPUT FLIGHT TIME RANGE 'ISEC0NDS RESP2330 

. RESP2340 

M0RETM = 1 T0 REAP ANOTHER CARO THIS TYPE, F0R SAME H AND HI NO, RE5P2350 


0 IS DYNAMIC PRESSURE (KG /METER **2) 

C0EFI = PI*RBASE**2 >1*Q/UPSTRH 
C0EF2 = C0EF1*2.*RBASE 
IF(NSHR)U0t12Q,110 
READ( 5,111>H0RD1,W0RO2,NPR0,INC 
FORMAT! A4, A3, 216) 

CALL SHEARS ( W0RD1 *W0R32,NPR0, INC) 

1 Ft ITAPE-1>121, 12 1,122 

TIMESS = XF/UPSTRM*(EM/IEM-1. )) 

GO TO 129 

IFtKK-3) 123,123,125 
TIMESS = VLENTH/UPSTRM 


RESP2360 

RESP2370 

RESP2380 

RESP2390 

RESP2400 

RESP2410 

RESP2420 

RESP2430 

RESP2440 

RESP2450 

RESP2460 

RESP2470 

RESP2480 

RESP249Q 


GO TO 129 

TIMESS = VLENTH/UPSTRM*[EM/[EM-i. )) 

1FIKT1ME1130, 140, 130 
ALTUDE = FLYTIM 
WRITEt6,141)W0RDl,H0RO2 

FORMAT! 15X.96HR ESP0NSES T0 WIND PROFILE 
1 IDENTIFICATION . . . ,A4,A3/ 

242X, 51HI IN M-K-S SYSTEM 0 F UNITS)/ 
360H ALTITUDE FLIGHT TIME NORMAL FORCE PITCHING MOMENT 
420X, I2HALT1L0W LIM)/) 

I F( KT IME ) 160, 170, 160 

FLYTIH = (-B+SQRT ( B*8-4.*C* ( A-ALTUDE > ))/(2.*C) 

CALL CONVOLt 3P1,0P2,SUM1N, SUM0U , WI NT YP) 

SUM0U HERE IS WIND AT ALTITUDE 

CINP(l) = C0EF1*(FSTEDY(I)*SUM0U(1)-SUHIN11)) 

CINPI2) = C0EF2* ( FSTEDYt 2 )*SUM0U( I) — SUMINI2)) 

CALL LNCNTI l.KKKK ) 

1 F( KKKK )5 10, 51, 510 

WRITE 16, 141 )W0RD1,W0RO2 

I Ft KT IME 1 530, 520, 530 

ALTUDE = A+FLYTIM*tB+;*FLYTIM) 

ALTSTR = A+»FLYTIM-TIMESS)*(8+C*(FLYTIM-TIMESS)> 

WR! TE t 6, 531 ) ALTUDE, FLYTIM, CINPt l) ,CINP12) , ALTSTR 

FORMAT t F10*2, F13.4, 2( 1PE18. 6) ,21X,OPFIO,2) 

l Ft KT IME) 540, 560,540 

I Ft ALTUDE-FLY TML ) 550,580, 580 

ALTUDE = ALTUOE+DFLYTM 

GO TO 160 

1 Ft FLYTIM-FLYTML ) 570,570,580 
FLYTIM = FLYT IM+OFLYTH 
GO TJ 170 

1 F t M0RETM) 70, 70,590 
CALL LNCNTt-l.KKKK) 

GO T3 100 
ENO 


RESP25O0 

RESP25I0' 

RESP2520 

RESP2530 

RESP2540 

RESP2550 

RESP2560 

RESP2570 

RESP2580 

RESP2590 

RESP2600 

RESP2610 

RESP2620 

RESP2621 

RESP2622 

RESP2623 

RESP2630 

RESP2640 

RESP2650 

RESP2660 

RESP2670 

RESP2680 

RESP2690 

RESP2700 

RESP2710 

RESP2715 

R6SP2720 

RESP2730 

RESP2740 

RESP2750 

RESP2760 

RESP2770 

RESP2780 

RESP2790 

RESP2800 

RESP2810 

RESP2820 


C 

C 

C 


C 


C 


l 

3 


2 


PROGRAM 70 COMPUTE WIND SHEARS AT 25 METER INCREMENTS USING A 
LEAST SQUARES CURVE FIT 0N ORIGINAL WIND PROFILE DATA 

SUBROUTINE S HEARS tWRDl ,WRO2,NPR0, INC) 

WRDL ,WRD2 ARE PROFILE ID, IN A4,A3. 

NPRO IS NO. OF ALTITUDES, AT 25 METER INTERVALS 

INC IS HO. 0F INCREMENTS PER 25 METERS F0R TEST INTEGRAL. 

COMMON /W I NDAT/ WSHEARt 750 ).WV,ALTI 

DOUBLE PRECISION WSHEAR , WVI 75G 1 ,XF ,XL ,X (3 ) , Yt 3 ) , YC ( 3 1 , YS I 3 ) , C0A , 
l COB,C0C,DX,XX,YY,NY 
DIMENSION DELVt 13) 

IF(NPR0-75O)2,2, 1 

WRITE 1 6, 3 ) WRD1 , WR02, NPRO, INC 

FORMAT! 1H1, 30X, 26HERR0R IN SHEARS ARGU£MENTS//20X,A4,A3, 19,19) 
G0 TO 400 
t Ft INC-10 ) 4, 4 , I 


SHEA1000 
SHEA10I0 
SHEA1O20 
SHEA 1030 
SHEA1Q40 
SHEA1050 
SHEA1060 
SHEA1070 
SHEA1080 
SHEA1090’ 
SHEA1100 
SHEA1110 
SH6A1120 
SHEA1L30 
SHFA1150 
SHEA1160 
SHEA1170 
SHEA1180 
SHEA! 190 


90 



4 


710 


15, 

16 

17 

105 

700 

20 


235 


C 

r 

c 

c 


c 

c 

c 


275 


C 

c 

c 


93 

195 


701 

C 

c 

c 

194 


500 

140 

702 


tNCHF=INC/2 

TWINC=2*7MC 

DX=25. 

NSHR=NPR0-2 

QX2=DX/2. 

DINC=DX/FJL0ATUNCI 
K0DE8 = -1 

WRITE! 6,710 )WRD1,WRD2»DI NC, DX 2 

F0RMAT! 1H1, 20X, 45HWINDS AND WIND SHEARS FOR WIND PROFILE NUMBER. 
UX,A4,A3//2X, 8HALTITUDE,3X,4HW_IND,4X,8HSHEAR AT,8X, 
220H1NTEGRATED SHEARS AT,F7.2,17H METER INTERVALS , /20X ,5HALT + ,F6. 
3. 10X.25HW ITH LAST 0ME AT ALTITUDE/) 

READ ANO ST0RE WIND PROFILE DATA. 

00 20 J = l.NPRO, 10 
J9=MIN0[ J+9.NPR0) 

READ(5,105)CALT»(WV(KI,K=J f J9 ) 

IFlJ-m5,15, 16 
ALT 1=CALT 
G0 7 0 20 

IFICALT-tPRALT+250.) 117,20,17 
CALT = PRALT+25G. 

F0RMAT(7X,F6.O, 1X.10F6.21 
WRITE(6,700)CALT 

FORMAT! 1H1.62HWIND PR3FILE DATA BUT 0F SEQUENCE. CORRECT ALTITUDE 
1SH0ULD BE iF10.2) ' ‘ ' 

Gfl T0 400 
PRALT = CALT 

USE 3-P0INT CURVE FIT T0 FIND WIND SHEARS OVER ENTIRE ALT RANGE 

X 1 1 1-ALT1 
NALT=1 

X!2)=X(1)+DX 
X[3)=X!2)+DX 
Yf U=WV!NALT) 

Y(2)=WV(NALT+1) 

V(3)=WVINALT+2) 

DETERMINE COEFFICIENTS CBA, C0B, C0C 0F QUADRATIC IN TRANSFORMED 
COORDINATE SYSTEM 

NY=(Y(l)+Y(3) 1/2. 

C0A=(Y( D-2.4Y! 2)+Y<3) )/2. 

C08=!Y!3)— Y(l)>/2, 

C0C=Y!2)-NY 


TRANSFORM BACK T0 0R IG INAL_5YST EM 

D0 275 J = 1 ,3 
XX = J-2 

YCI J )=C0A*XX*XX+C0B4XX+C0C+NY 
C0C=C0C-C0B*X 121/25. +C0A*X(2 )*X( 2I/625.+NY 
C0B=C0B/25.-2.*C0A*Xt2)/625. 

C0A=C0A/625. 

COMPUTE SHEAR 

I F ( K0DE8) 195, 194,194 
SHEAR * C0A*<X(2)+X!3))+C0B 
K0DE8 * 0 

WRITE! 6, 701) X!1 ) ,WVC1) ,X (2 ) , WV ( 2 ) .SHEAR 
F0RMAT! F10 .2, F8.2/F10.2,F6,2, El 1.5) 

G3 T 0 82 

INTEGRATE RIGHT HALF 
SHR1=SHEAR 

SHEAR- C0A*tX(2)+X(3))+C0B 
D0 600 1=1 , INCHF 
J=INCHF+I 
2=241—1 

OELV! J)=! (TWINC - 2 1 *SHR 1 +2*SHEAR ) 4DX/TWINC/FL0AT { I NC I 
IF(K0OE8) 195, 140,141 
VEL = Y(2) 

WRITE ( 6, 702 ) X(2),Y(2) .SHEAR, VEL 
FORMAT! F1D.2,F8.2,F11. 5,2X, 10!F9. 2 , 1H, ) 1 
K0DE3 = 1 
60 T0 822 


SHEA120 
SHE6121 
SHEA122 
SHEAJ23 
SHEA124 
SHEA125 
SHEA126I 
,_SHI; A 127 
SHEA128I 
SHEA129I 
2SHEA130I 
SHEA131I 
SHEA132I 
SHEA133! 
SHEA134! 
SHEAI35! 
SHEA136! 
SHEA137! 
SHEA138! 
SHEA139! 
SHEA140I 
SHEA141! 
SHEA142! 
SHEA143! 
SHEA144! 
SHEA145C 
SHEA1467 
SHEA147( 
SHEA148C 
SHEA149C 
SHEA150C 
SHEA151C 
SHEA152C 
SHEA153C 
SHEA154C 
SHEA155C 
SHEA1560 
SHEA1570 
SHEA1580 
SHEA1590 
SHEA1600 
SHEA1610 
SHEA 1620 
SHEA1630 
SHEA1640 
SHEA1650 
SHEA 1660 
SHEA1670 
SHEA1680 
SHEA1690 
SHEA1700 
SHEA1710 
SHEA1720 
SHEA1730 
SHEA1740 
SHEA1750 
SHEA1760 
SHEA1770 
SHEA1780 
SHEA1790 
SHEA180O 
SHEA1810 
SHEA1820 
SHEA1830 
SHEA1840 
SHEA1850 
SHEA1860 
SHEA1870 
SHEA1880 
SHEA1890 
SHEA1900 
SHEA1910 
SHEA1920 
SHEA 1930 
SHEA1940 
SHEA1950 
SH6A1960 
SHEA1970 
SHEA1980 
SH6A1990 
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r» n'o 


t 

C SUM DELV T 0 GET INTEGRAL. ( DELV THEN HAS 
C NEW INTERPRETATION 
C 

141 0ELV(1)«VEL + OELVtl) 

00 620 I - 2, INC 
620 DELVI I I -DELV ( Z T+OELVt I — 11 

WRITE<6,702) X( 2 ) , Yt 2) . SH EAR, (DELV III ,I»1,1NC) 

VEL = DELVI INC) 

INTEGRATE LEFT HALF 

822 00 610 I =1 t INCHF 

J=INCHF-I+1 
Z=2*I-1 

610 DELVI J)*( (TWINC-Z)*SHEAR+2*SHRlJ*DX/THIN(;/fJ.0AT.tJNC( 

C 

C STEP TO NEXT INTERVAL. ST0RE SHEAR IN C0MH0N/WI NDAT/ 

C 

82 WSHEAR(NALT)=SHEAR 
NALT = NALT + I 
IF(NALT-NSHRI85,85,9Q 
85 XI1)=X(2I 

GO T0 235 

90 ALTI = ALT1 +■ DX«I.5 
C 

C ALTI IS N0H ALTITUDE 0F FIRST SHEAR 
C 

RETURN 

600 CALL EXIT 
RETURN 
END 


SHEA2000 

SH EA20 10 

SHEA2020 

SH EA20 3O 

SHEA2040 

SHEA205Q 

SHEA2060 

SHEA2070 

SHEA2080 

SHEA2090 

SHEA2T00 

SHEA2110 

SHEA2L20 

SHEA2130 

SHEA2140 

$HEA.?150 

SHEA2160 

SHEA217C 

SHEA2180 

SHEA2190 

SHEA2200 

SH.EA.2210 

SHEA2220 

SHEA2230 

SHEA2240 

SHEA2250 

SHEA2260 

SHEA2270 

SHEA2280 

SHEA2290 

SHEA2300 

SHEA2310 


SUBR0UT INE C0NV0U0Pl,3P2iSUMIN,SUH0U, WINTYP) DUHT1000 

DOUBLE PRECIS I 0N EH t UPSTRM, VZ ER0, XF , XTESTI 20) , RTESTI20) .FSTEDVI21 .OUHTIOXO 
1CINP!2),C0UP(2) ,CMAG(2) ,PHANS (2 ), SUH lINJj.) » SUM0U(2 ) , A3MEG, AOMF ,DA0MDUHT1O2O 

2, A0ML.VLENTH, TERM I , TERM0, ANGLE, THE TA ,FACT1 ,FACT2 , VB AR , P I , CAY, CAYP IDUHT 1030 

3, TI300) ,RES(2,300),WRD1!3,40) DUHT1040 

C0HM0N EH.UPSTRH, VZER3,T,RES, FSTEDY , XF,XTEST» RTEST, A3MEG, DUHT1050 

IKK, NTCOUN, NTEST , ITAPE, I DB0DY DUHT1060 

DOUBLE PRECISION DELI, DEL 2, WI (3 ) , W0I 3 } , ARG ,RI NI2 , 3) , T0U 1 2 ,3 ) , CBN 1 .DUHT1070 


210 

220 
2 30 


IC0N2 , TEKN1 , TERH2 , TERH3 , TERH4, OELAC .FLYTI H 
EQUIVALENCE ( AOHEG.FLYT IM ) 

DIMENSION KST0PI2I 

WINTYP = 0 . . . FIND IN- AND 0UR- Of PHASE RESPONSE T0 
SINUSOIDAL WIND, FREQUENCY A0HEG 
WINTYP = 1 . . . FIND RESPONSE T0 WIND PR0FILE AT FLIGHT TINE 
FLYTIM. I SECOND INTEGRAL IDENTICALLY = 0, ARTIFICIAL) 

I T APE= 1 DENOTES A OUHAMEL INTEGRATION 0F L0CAL F0RCES - CNA, 


DUHT1080 
0UHT10S5 
OUHT1090 
0UHT1091 
DUHT1092 
DUHT1093 
DUHT1Q94 
DUHT1095 
OUHT1096 
DUHT1100 
CHA. DUHT11 10 

!TAPE=2 SIGNIFIES A OUHAMEL INTEGRATION OF THE TOTAL NORMAL FORCE 0UHT112O 
AND THE PITCHING MOMENT - CNA, .CHA. DUHT1130 

0UHTI140 
0UHT1150 
DU HT 11 60 
DUHU170 
DUHT1180 
BUHT1190 
DUHT1200 
DUHT1210 
0UHT1220 
0UHT1230 
0UHT1240 
DUHT1250 
DUHT1260 
DUHT1270 
DUHT1280 

0PL ALLOWS OPTIONAL OUTPUT OF PORTIONS OF THE I NTEGRATI 0N5DUHT129O 
0P2 ALLOWS OPTIONAL OUTPUT OF WIND PROFILE VALUES. DUHT1300 

DU NT 13 10 

NOW = 1 DUHT1315 

00 15 N»L1,L3 DUHT1319 

IFIWINTYP1210, 200,210 DDHT1320 

CALL DWVDT I FL YT IM-T (N),WI{N), WIND, NOW) 0UMT1321 

NOW = 0 0UHT1322 

W01N)=O. DUHT1323 , 

IF I 0P2) 15, 15, 220 DUHT1324 

TIHE=FLYTIM-T(N| 0UKT1325 

WRITE(6,230)TIME,WI(N) 0UHT1326 

F0RMATI 10X.6HTIME »,F13.4,5X, 13HDWVDT < TIME ) -.E13.6/I . 0UHT1327 , 

G0 TO 15 omm32a 


INITIALIZATION 
IR = 2 
NSTP=0 
00 5 J=1 , IR 
KSTOPI JI=0 
SUM IN I J ) =0.0 
SUHOUIJ) « 0.0 
LI = 1 
L2 - 2 
L3 - 3 

DELI = !T(L2)-TCL1) )/6.0 
DEL2 = (T(L3)-T(L2))/6.0 

COMPUTE SINUSOIDAL WIND PROFILE FUNCTIONS 
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200 

ARG = A0MEG*T(N) 

J3UHT 13 30 


MI IN) = DSIMI ARG) 

DUHT1340 


W01N) = DC0SI ARG) 

OUHT1350 


!F(0P2>15,15,12 

DUHTL360 

12 

WRITE (6,500) T(N),WI[N),W0(N) 

DUHTI370 

500 

FORMAT [ 10X6HT IME =, F 10 . 4, 5X 10HS IN I ARG ) *,£13*6, 5X1 OHS 0SIARG) =, 

0UHT1380 


1E13.6/I 

DUHT1390 

15 

C0NTINUE 

DUHT1400 


I FI0P1) 25,25, 20 

DUHTL410 

20 

WRITE (6,504) 

0UHT1420 

504 

FORMAT! IHO , 5X4HT I ME , 6X5H0ELAC .8X4HC0N1 .9X4HC0N2 ,6X 1H J , 3X5HTERM1, 

0UHT1430 


18X5HTERM2 , 8X6HSUM-I N»7X5HTERM3» 8X5HTERM4, 8X6HSUH-0U/) 

0UHT1440 

25 

00 30 J= l, IR 

DUHTL450 


00 30 N=L1»L3 

DUHTL460 


RINIJ.N) = RES! J,N)*WIIN) 

DUHT1470 

30 

R0U(J,N) = RES! J,N)*W0(N) 

DUHT1480 

DUHTL490 


M0DE=1 TRAPA20 1 DAL 

0UHTI5O0 


M0OE=Z SIMPS0M S (END POINT) 

DUHT1510 


M0DE=3 SIMPSON S (MID P0INT) 

DUHT1520 

DUHTL530 

40 

I FI DABS ( DEL2-DELL ) - . D00001*DEL1 ) 50 , 50 ,55 

0UHTI540 

50 

C0NI = 2.*DEL1 

DUHT1550 


C0N2=8.*DEL1 

DUHT1560 


M0DE=3 

DUHT1570 


G0 T 0 60 

DU HT 1580 

55 

C0N1 = 3.*DEL1 

DUHTL590 


C0N2=3.*DEL1 

DUHT1600 


M0DE=1 

DUHTL610 

60 

00 70 J-I, IR 

0UHTL620 


IF!KST0P(J)-1)64,62,61 

DUHT1630 

61 

IF(KST0P!J) —3 ) 59, 70,70 

DUHT1640 

59 

KST0PIJ) = 3 

DUHT1650 


IF[M0DE-2)64,64,58 

DU HT 1660 

58 

C0NI = 3* *DEL 1 

DUHT1670 


C0N2 = 3* ADEL 1 

DUHTL680 


G0 T0 64 

DUHTL690 

62 

KSTOP(J) = 2 

DUHT1700 

64 

TERM1 = C0HIARIN! J,l) 

DUHT1710 


TERM2 = C0H2*RIN! J,2) 

DUHT1720 


TERM3 = C0N1*R0U(J, 1 1 

DUHT1730 


TERM4 = C0N2AR0U! J,2) 

DU HT 1740 


SUMI N ! J ) =SUMI N ( J ) +TERM1+7ERM2 

DUHTL750 


SUM0U I J )=SU)10U ( J ) +TERM3+TERM4 

0UHT1760 


IF! 0P1 170, 70, 65 

DUHT1770 

65 

IF! J-l)66,66,66 

DU hT 1760 

66 

DELAC = 6.0*DEL1 

DUhT 1790 


WRITE (6,505) T!L2),OELAC,C0N1,C0N2,J,TERM1,TERM2,5UMIN(J),TERH3, 

DUHT1600 


1TERM4.SUM0U! J ) 

DUHT1810 

505 F0RHAK 1XF1C* 4 t 3E 13* 6, 13»6E13.6 ) 

DUHT 1820 


G0 T0 70 

DUHT 1830 

68 

WRITE 16,506) J , TERM 1, TERM2 ,SUM IN ( J } , TERM3 , TERM4 , SUM0U! J ) 

0UHT1840 

506 F0RMAT!5OX,I3,6£13.6) 

DUHT1850 

70 

continue 

DUHTL860 


00 80 J=l, IR 

DUHT 1870 


I F(KST0P(J 1-2)80,80, 79 

DUHT188G 

79 

NSTP = NSTP + I 

0UHT1890 

80 

CONTINUE 

0UHT19C0 

81 

I F( NSTP - IR182, 300,300 

DUHT1910 

B2 

D0 85 J=l,IR 

DUHT 1920 


IFIKST0P! J)-3)83,85,85 

DUHT1930 

83 

RIN(J,1) = RIN! J , 2) 

DUhT 1940 


R IN! J ,2) = RIN! J, 3) 

DUHT1950 


R0U(J,1) = R0U(J,2) 

DUHT 1960 


R0U! J ,2 ) = R0U(J,3) 

0UHT1970 

85 

C0NT INUE 

DUHT 1980 


NSTP = 0 

DUHT199G 


DEL1-DEL2 

DUHT200Q 


L3 = L3 + 1 

DUHT2010 


L2 * L2 + I 

DUHT 20 20 


I FI L3-NTC0UN 190,90,120 

DUHT2O30 

90 

0EL2 = ( T IL3 ) -T( L2) )/6*0 

DUHT204C 


IF(WINTYP)410,400,410 

DUHT2041 

410 

CALL DWVDT(FLYTIM-T!L3),HI(3) ,MIND,N0H) 

0UHT2042 

MB! 3 ) =0 * ' 

0UHT2043 


IF! 0P2 191, 91, 420 

DUHT2044 

420 

IF! L3— 10 > 430, 91,91 

DUHT2045 

430 

T IME=FLYT IM-T ( L3 ) 

DUHT204* 


WRIT£(6,230)T[ME,WI! 3) 

DUHT2041 


G0 T0 91 

DUHT204* 
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400 ARG = A0HEG*T(L3> 

W I ! 3 ) = US INC ARG ) 

H0(3J= DC0SIARG) 

IF!0P2]91,91,87 

87 1F(L3-10)88,91,91 

88 WRITE (6.500) T (L3) , WI( 3) ,W0( 3) 

91 00 95 J=1,IR 

93 RIN(J,3) = RES! J,L3]*WI (3) 
ft 0U ( J t 3 ) = RES! J , L3 1 *W 0 ( 3 ) 

•95 C0N7INUE 
100 IFIM0DE - 2)40,40.110 
110 C0N1=O.O 

C0N2=2.*OEL1 
M0DE=2 
G0 T0 60 

Z END 0F FILE HAS SEEN REACHED. D0ES N0T NECESSARILY INDICATE THE 

C PRESENCE 0F STEADY STATE VALUES. 

120 NSTP = IR 

IF!M0OE-2)55, 55,UO 
300 IF(WINTYP)310,350,313 

310 SUM0UI1) = WIND 
350 RETURN 
END 


DUHT2050 | 

0UHT206O j 

DUHT2070! 

DUHT20801 

DUHT2G90 J 

DUHT2100 I 

0UHT2110 J 

DUHT2160 I 

DUHT2170 

DUHT2180 

DUHT2190 

DUHT22G0 

DUHT2210 

DUHT2220 

DUHT2230 ' 

DUHT2240 

DUHT2250 , 

DUHT2260 I 

DUHT2270 I 

DUHT2280 

DUHT228L 

DUHT2282 

0UHT2290 . 


C 

C 

c 

c 

c 


c 

c 

c 


SUBROUTINE DWVOT IT .DER.WIND, NOW ) 

COMPUTES DERIVATIVE OF WIND VELOCITY (SHEAR) WITH RESPECT TO TIME 
BY TRANSFORMATION TO ALTITUDE DEPENDENCE AND SUBSEQUENT INTERPOL- 
ATION IN WSHEAR TABLE. 

COMMON/WINOAT/WSHEAR (750 ) ,WV 1750 ), ALT1 

DOUBLE PRECISION WSHEAR, WV 

DX=25. 

A = 3279.122 
B = -150.6733 
C 3.20411 

TRANSFORM TO H WITH QUADRATIC CURVE FIT, VALID FROM T = 60 TO 100 

H = A * T*!B +C *T> 

INTERPOLATION TO FIND DWVDH 

N « t (H-ALT1 1 /DX + 1.) 

IFIN) 10,10,20 
20 IF(N-750)30, 10, 10 
10 WRI TE! 6 , 99) T,H, ALT1 , ALT1 

99 F0RMATI37H ARGUEHENT TO DWVDT OUT OF RANGE. T=,E16.8, 3H H=,E16. 
1.11H MIN. ALT - , E16.8 , 6H USING.E16.8) 

N— 1 

30 ALTN = ALT1 + DX*FLOAT( N-l) 

DWVDH = WSHEAR IN) + (WSHEAR (N+U-WSHEARIN) I /DX*!H-ALTN) 

COMPUTE DWVDT 


DMVD1000 
DWV01010 
DW VO 1020 
DWV01030 
DWVD1040 . 
DWVD1050 ( 

□MVD1070 
DWVD1080 
DWVD1090 : 
DWVD1100 i 
DWVD1110 
DWVD1120 
•DWVD1 130 
DWVD 1 140 
DWVD1150 
DWVD 1160 
OWVD1170 
DWVD 1180 
DWVD1190 
0WVD1200 
DWV012I0 
DWVD 1220 
80WVD1230 
DWVD 1240 
DWVD 12 50 
DWVD1260 
OWVD1270 
DWVD1280 
DWVD1290 
DWVD1300 


DHOT = B +■ 2.*C*T 
OER = DWVDH*DHDT 
IF ( NOW ) 100.900, 100 

COMPUTE WINO AT H 

100 IF(H-ALTN-DX*.5)210,210,110 

H MORE THAN 12.5 METERS FROM ALTN - INTEGRATE ONE PART-INTERVAL 

110 WIND = WV IN+2J+0 .5*(0.5*(WSHEAR(N J+WSHEARIN+l > l+DWVDH) 
l *IH-ALTN-0.5*0X) 

GO TO 300 

H LESS THAN 12.5 METERS FROM ALTN - INTEGRATE TWO PART-INTERVALS 


210 N = N-l 

WIND = WV(N+2>+0. 5*!WSHEAR{ N)+3.*WSHEARINH) ) *0,5*DX 
1 +D.5*(WSHEAR (N+l ) +OWVDH J*(H-ALTN I 

300 WRITE! 6, 399) WI ND ,H 
399 F0RMAT15H WIND, 1P2E16.7) 

900 RETURN 
ENO 


DWVD1310 

DWVD1320 

DWVD1330 

DWVD1340 

DWVD 1350 

DWVD1360 

DWVD 1370 

DWVD1380 

DWVD1390 

DWVD1400 

DWVD1410 

DWVDI420 

DWVD1430 

DWVD1440 

DWV0I450 

DWVD 1460 1 

DWVD1470 ' 

0WVD1480 

DWV01490 i 

DW VO 1500 ! 

DWVD1510 i 

DWVD1520 

DWVD1530 ‘ 
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